LABEL OOOOOOOOOPRINTEKOOIOOUOOCC LX OR JECT/HE aG; F ItL SQUHCLI- lLt = 5 YMBUL/C ANQe; END' ♦ 
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56 
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46 
46 
47 
48 
49 
50 
51 
52 
53 
S4 
55 
56 
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>r 
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J15 
IS 
17 
18 



19 
20 
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28 
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36 
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48 
49 
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COMMENT * TITLE' BSSOO/Oij/'OO MaRk XIV SYSTEM hELEASE * 

* FILE ID« SYMbUL/CANDE 1 aPL IU S SYMbOLii/F ILEOOO * 

* THIS MATFRIAI.. 15 PHOPRltTARY T[1 RUHHCUfiHS CORPQRATTni^ * 



* AND IS KCT TO BE ReBROUUCEO' USED^ OR DISCLOSED 

* EXCEPT In accordance with program LiNCENSE OR UPON 

* WRITTFM AUTHflRTZATIDN OF TUF PATf^T nT>yT«;TnM nF 



OOOOOiOO 
OOOOOlOl 



* BURROUGHS CGRPORATIUN' UETRUIT, MICHIGAN ^8232 



00000103 
00000104 

noQooios 



* AA320206 
BEGIN % CANDE/TSHARER 
D E ^ IN F VFINTSHEn 



COPYRIGHT (C) 1971> i.9fd fclLKRUUGHS CUKPURATIr.N 



DEFINE 
DEFINE 
DE n N E 



AA386657 
LAST REVISION 



00000106 
00000107 

oooooiop 



n-72 



*; 



VHELLO 
VBREAK 
VWRU 



DEFINE 
DEFINE 
DEFINE 



= ou; 
= 02*; 



oeune 

DEFINE 
DEFIN E. 



VLINECLEAR 
VDISKCHUNK 
VDISCQNNECT 



DEFINE 
DEFINE 
DEFIN E 



VINPUTOATA 

VBREAKCLEAR 

VRE STARTIT 



s 04#; 

« os#; 

s 06»1 



VMCPUSE 

VLISTNEWS 

VMCPMSG 



5 07»; 

= 08*; 



DEFINE 
DEFINE 
DEFINE 



= 10*; 
« 12#J 
" 14*j 



% DUMMY CALL IN hITHERE 



DEFINE 
DEFINE 
DEFINE 



VCQOLIT 

VMCPOK 

VTEACHER 



= 15*; 
= 16*; 



DEFINE 
DEFINE 

DEFINE 



VINPUT 

VDISPATCH 

VDISKREAD 



DEFINE 
DEFINE 
DEFINF 



vrestart 

VUOPS 

vdogcatcher 



s 26*; 
s 27#; 
g 26*; 



s 29»; 
5 30#; 
= 3i»; 



vcompileit 
vsetupfiles 

VERROR 



3.8.*;. 
33#; 
34*; 



DEFINE VCLOSEWORKTABLEs 3b*; 
DEFINE VCHNGPSWD = 3d*; 
DEFINE VTIMF » 37*; 



DEFINE 
DEFINE 
DEFINE 



DEFINE 

DEFINE 
DEFINE 



vcc 

VCHNGNAME 
VMONITORR 



9 38*; 
« 39#; 
=g 46* ; 



VSET 
VSSFILE 

V EQUATE 



= 4i#; 
s 42*; 



DEFINE VSTATUSCHECK * 44#; 
DEFINE VSSMSS i 50*; 
DEFINE VPDIT i 51 #; 



» L ABE L £QUA1I ( JN 



DEFINE 
DEFINE 
DEFINE 



VCOPY 

VSEQ 

VBYE 



DEFINE 
DEFINE 
DErXNE 
DEFINE 
DEFINE 
DEFINE 



* 52*; 

* 53#; 

s 54*; 



VMAKE 
VLIST 
VEXECUTE 



53*; 
56#; 
57*; 



VLOAD 
VSAVE 
VREMQVE 



DEFINE 
DEFINE 



= 58*; 

s 59*; 

= 61*; 



VCHANQE 
V RENAME 

VWHATS 



» 62*1 

s, 6.3.«; 

c 64#J 



00000109 

ooooiooo 
onoQUon 



0000120C 
00001300 
Q 00Q 1 4Q 



00001500 

00001600 
QQ0017Q0 



ooooieoo 

00001900 
nnouiQSn 

00002000 
00002050 

-.Qiiofl.2ia.Q_. 



00002110 
00002120 

-a(i.0022fl_Q_. 



00002300 
00002400 
0Q0Q25QQ 



00002600 
00002700 
OQOOSflOQ 



00002900 
00003000 
OQ0031QQ 



00003200 
00003300 
00003301 



00003310 
00003312 
0QQQ3314 



00003316 
00003318 
00003320 



00003330 
00003400 
00003500 



00003600 
00003700 
00003800 



0000 3900 
00004Q00 
00004100 



00004200 
00004300 
00004500 



00004600 
00004700 
Q00 04a OQ 



T1^ 



18 
19 



24 
25 



27 
28 



30 



33 
34 
35 { 

36 



41 I 

42 



49 
50 I 



53 < 



55 
56 ' 



rf 

2 
3 



16 
17 
18 



19 

20 



23 
24 
25 



26 
27 
28 
29 



o 
Q 



33 

34 



36 

37" 
36 



41 

«2 

43' 

44 

45 

46 



•8 
•9 

SO 



S4 



56 



y. 



DEFINE 
DEF INE 
PEFI N E 



DEFINE 
DEFINE 
DEFINE 



VTYPE 

VGUARD 

VL O CK 



DEFINE 
DEFINE 
DEF I N E 



VTAPE 
VPRINT 
-VCHARGE 



= 65#; 



69$} 
71 f t 



00004900 
00005100 



VSCHEDUUE 

VSTATUSSTOP 

V LFILE S 



= 7Ui 



00005300 
OOOOSftOO 



DEFINE VUPDATE a 7S#; 

DEFINE VREPLACE a 76 «; 

DEFINE , CALLfCAt LnglAMMOli; 



00005500 

00005600 

..J3jDOiJ.iZA0- 



% FOR UNUSED CASE STMT? 



00006390 
OOOO6395 



INTEGER 
SAVE ARB JX 



DEFINE 
DEFINE 
DEFINE 



common; 

LEQ« 3Q ]; 



DEFINE 
DEFINE 
DEFINE 



STUFF •I,*; 

FF « C18»15}«# CF * C33U3]#; 

CR«n#» I Fg3"lnonoi"g» CRLFal*. 



00006500 
00006600 
0Q0067QO 



DEFINE 
DEFINE 
REAL 



NO « NDT«i 
MAXLINES *A8 ^i*/ 
IDLETIMF s .16000Q»; 



»F FIELD & C FIELD 
N0CWLF»3"l ooonQ'^)K; 



00006600 
00007600 

-JlQil.Q7.7£[0.. 



% NO OF LOGICAL LINES TO BE HANDLED 



LLWoaos sl00#i 
TBLSZ s20#i 

diskbottqm; 



* NO OF WORDS PER LOGICAL LiNt. 
% WRKTBL SEGS Max ( 17 + CHKPO INT ) 
% FOR DIRECTORY SFARCHES. 



00007800 
00007900 

...Qii_Q0Ji20_Q. 



00008100 

00008200 
00008300 



DEFINE 



NUMOFVERBl) s a9## 
NUMQFTYPE S ^X\$f _ 



VOID 
VOID 



^ NLMBER. OF TYPE k^nRDS 



00008400 

00008500 

-0QQ086QQ 



BOOLEAN 
DEFINE ._ 



NUMQF RESWHpS s 30 j; % NO. OF RESERVrn WQRnS (NOT VFHHS) 



FLAGS; 

WECANUSEDATA = FLAGS, Ll;iJ * 



00008700 
00008750 
OOOOBflOQ 



* N0OATA s FLAGS. C2in # 

* NDOaTaREQUESTED » FLA<ii.C3Jia # 

* NOFILE S s FLAGSfCAJll # 



00008900 
OOOU9000 
00009100 



noTanks 
weneedtccoolit 

TiMeTOOKLINeS 



- FLAGS. [5:U » 
= FLAGb* [6:n# 

FLAGS. [7: n* 



00009200 
00009300 
00009400 



*3U0LEAN DOGSAROuND %%%%%%%%%%%%%%%%%% fTMP %lk%%%%%%%%%%%%%%%%%%% 



DEFINE 



TELETYPE « 0## 



CONRAC 

TC500 

BIDS 



s 1#* 

s 2rf* 

s 3#; 



00009500 
00009510 

0000 9520 

"M^'96T)0 
00009700 
00009730 



XPAQE 
SAVE 



00009740 
00009750 
00009760 



% 
ARRAY 



SAVE 
REAL 
REAL 



ARRAY 



TTYINPUT C0t293; 



% INPUT QATA FROM tiNEMTNCE. 



REAL 
REAL 
REAL 



REAL 
REAL 



WORK to :5V]; % I/o PROCESSING AREA 

daTaoffsettj daTawQRds, datadiskloc; 

ROWINUSE>D0GCATCHEKS>HUrtCOUNT»TlMLN0w; 

nudcount; "^ ^~~ " 

MSGFILELOC; % CONTAINS ABS DISK LOC MESAGES, 
TANKFILE; % DISK ADDR OF TANK/DISK. 



00009800 
00009900 
00010000 



oooioioo 

00010200 
00010300 



X VOID 



TANkSIZe; * ROW size of TANK FILE. 



00010350 
00010400 
OOOIQSOQ 



LL 



llprev # 

CLOCK * 

clockprev^ 



% LOGICAL LINE NO CURRLi\TLY BEING HANDLED^ 



% LOGICAL LINE NQPHtviOUSiY HANDLED, 

X GQNT A INS PRQCE SSOH T IME USED » 

% PHEViOUS PROCESSOH TIME USEDr 



00010600 
00010700 
00010800 



00010900 

ooouooo 
ooouioo 



12 

13 



18 
19 
20 I 
21 
22 



24 



27 

28 
29 I 



33 
34 

35 < 

36 

37 



41 
42 



44 ' 
45 



46 
47 

46 



m 



53 ' 



56 
it 



WAiTBiT * % WAIT Indicator kuh nlxtevlnt. 00011200 

REASON P % REASUN V QH THIS EVENT ENTRY. OOOlUOO 

St AMilfi i a; CUMMNS » FflH TT^ H^,S^^^^,^f onoiiaon 



DATE * % OATE-'MM/OD/YY 00011500 

S»OCNTRt f % SPO CUNTROL VARIABLE OOOlUOO 

-lAi! 1 % CALLING PKQCFDuRE NO. QR NEXT uPERATton . nnOiiTon _ 

DOINS * % CAULER"S CaS£ OR iWlTCH VALUE, OOOUeOO 

WANT / % REQUtiiTED OPERATION NU, 00011900 

l&MJH i % IF AN FRROR IS ri\(;QUNTF RtO , nnQi Pppn 

BASE * % BASE OF LL SCRATCH AREA, 00012100 

TEMP * X TEMPORARY WORDS USED BY A PROCEDURE, 00012200 

P A RAM « X PARAMETFR ClUiNT HEI NR P A. SSm TH PB nrF n i i Bf nnO | 3 ?nn 

WAlTFOR / % CONDITION REQD BEFORE RETURNING, OOOI24OO 

PREVRCW f % pOlNTi) AT LATEST HCW FOR THIS LINE, 00012500 

SfiEG_ _^ X"STACK" REGISTER FUR ACCESSING ARRAY WOS, nnQl26nn 

^ 00012700 

R£*L sew, RCw; * STACK CONTtUL WORD# RETURN CONTROL WORD. 00012800 

M^k STACKS IZE^PHOCESSLIM IT MOLIMlT^f^ORESIZE^nOMMONVALUF; 000l2fl1Q 

REAU WORKADRS#WORKENDAD^S; * POINTERS TU wqRK ARRAY 00012820 

DEFINE * 00012900 

'" ^ SCWWAITRITS = riOi7J ft, % 000130 00 „ 

^L SCWWAIT s SCW.[10«7J ** % 00013l0o"'" 

•n SCWPHEV 9 SCW.[17»8] »P % 00013200 

SCWBASE 8 SCW.r2B«fl3 »» % Qn0133Qn 

" SCWDOING * sew. [33!/] »p % 00013*00 "" 

* 00013500 



5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
|15 



o 
Q 



45 
«6 



X 



# ^^ SCWIAM 5 SCW,[40«83 ** 

^ ^*~ ? 0Q01360Q 

^^ " RCWSRE6 9 RCW.t03S83 ## S 00013700 

|#H ^C*^.?*^*^' '^CW,CUI73 *, » 00013800 



"- RCWTEMP 9 RCW. C 11 8 73 »> % 00013900 

" RCWBASE s RCW.C25»8] »» % 00014000 

» RCWDOING = RCW. [33573 «# % 00014100 

'"„ ^ RCWIAM c RCW. [40883 »i % 00014200 

DEKlNE ESPTABlESIZE » 40#| X INCgEASE THIS IF "NO ROOM" ERRORS 00014300 

« ARRAY ESPTABLEtO»ESPTABLEsIiE3; X ESP SEGMENTS FUR LABEL EQUATION 00014310 

" ARRAY CTRANDBASE [0>153j 000 14500 

"* ARRAY DOGHOUSE CO ; MAXL I NESJ > 00014600 

'* ALPHA ARRAY VERBTABLE [ J 2XNUM0FVtHBS 3 * 00014700 

'" TYPETABlE [QSNUMQFTYPEb], 00014800 

" RESWROTABLE COiNUMOFRtSWRDS+1]; 00014900 

'" REAL ARRAY EVENTS C0»43; * QUR EVENT AREA, 00015000 

"" R£*L ARRAY EVENT roi203J % MCP EVENT AREA, 00015100 

'" REAL ARRAY USRBASE C0»203; % DISk ADDRESSES OF USERS/CANDE FILE OOOlbllO" 

*' DEFINE USROWSIZE s U SRB ASEC 20 J J«^ * SEGmENTS/ROw FOh USERS/CANDE FIlE 00015120 

" DEFINE at 0Q015PQQ 

\ EVENTLL « EVENTS£03,t25i8 3 $ ■ 00015300 

EVENTREaSON ■ EVENTSC03.E18J73 # 00015400 

^-*- ^ -^ -^ — . 00015500 



REAL ARRAY LI^E [0 «MAXL JNES^U I LLWORcS 3 > % LOGICAL LINE iNpO, 00015600 
" comment: the FOLLOWING DEFINES ARE USED TO ACCESS lINE ARRAYWORDS; 00015700 
•*. DE^ INE TBASE sQili; % BASE FOR TBL ENTRIES OOOlSflOO 



** DEFINE SBASE * 4V#;X PROCEDURE STACK BASE 00015900 



"■ DEFINE 

51 



illMffl » ACll) »# at LINE CONTROL INFORMATIOti, OQOI6IOO 



" LLDISKREAUs AC123 »f % ADDRESS OF DISK SEG TO BE READ . 0001 6200 

" WAITINGSCW» A[133 »f % HOLDS CURR SCW DURING A WAIT. OOOI63OO 

MSGPOINTERs A[14] », % . ^ 000l640p 



'' MS6PTR » AC143 ## % 00016500 



9 
10 
11 ( 
12 

13 

14 ( 

16 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 < 

30 

31 

32 < 

33 

34 

35 < 

36 

37 

38 I 

39 

40 

41 I 
42 



46 
46 
47 < 
48 
49 



00016000 50 ( 



MSGPTBLOC • 14 ## I 00016510 

>JSERLOC «. AC153 *t X ADDR QF USfR RfC QQ0l6AQn ; .' r L 



51 

62 

53 I 

54 

55 

56< 



19 
20 



22 
23 
24 
2S 
26 



28 

29 



31 
32 



34 
35 



36 

37" 



41 
42 
43 



47 
48 
49 
50 



a 



96 



USERCUDE 

UCLOC 

R LC W 



» AC16] 
= 16## 

' A[17] 



if* 



CHARfiE 
LOGON TIME 
PTIME 



% STnHFD VALot: HF (;uRRENT ICrt 



00016700 
00016800 
JICI0169QO 



9 



AC18] f* % CHARGE CODE IF USEDf 00017000 

Ail93 f# X 00017100 

ACi03 «/ » PROCESSOR TIME USrO ON THIS LL.onQiy^nn 



PTLOC a 20 *r % LOCATIuN OF THIS LINES PTlMt. 00017300 
INPUTCTR s A[2iJ »* % NUMBER OF INPUTS »<E HECy/D. 00017400 
FILENAMF = A[22] tt , % Namf OF THE "WORK" FILE 00017500 



DEVICE 

PREVMS6 

INGREMEKT 



a AC 213 
» At2*3 
g AC 243 






SeQLAST s A[25] #* 
SEQIN = AC263 #f 
LASTRECCRD= A[273 »* 



% TYPE 0F REMOTE TERMINAL 00017600 
» MESSAGE BEFORE NO DISK OCCURRED00017650 

-1— -^ : Q00177QQ 

00017800 
00017900 
00 190 00. 



% DATA FIU£ RECOHQ COUNT 



tABLElNFQ * AE201 #* r CONTROL WORD FOR WORK TABLE OOOI8IOO 
UPDATEBiT » ACa83»t23M3 #*« UPDATE IN PROGRESS 00018H0 

TPOKREL » TABLf:iNF0.C24t63 *# it REL SEG ADOR 00 018200 



TPREC = TABLEINFa,t30:23#. 
TPEnTRY = TABLEINF0.C32»43#, 

TPCQUNT s TABLEINF0,l36;123»!* 



wrktbladr 
tpokadr 

FILETYPr 



AC 29 3 $, 

WHKT8LA0R 
AC 303 *, 



% ID WD REC in SEG 00018300 
% WHICH OF 10 IN REC 00018400 
It NUMBER OF ENTRIES QOU l 8500 



SOURCEFREs AC31] », 
ESPl == A[323 #/ 
FSP? = A T 33] tf f 



RUNl « AC343 ## 
RUN2 9 AC35 3 »p 
OBJECTFILEb AC363 »> 



X ABS DISK ACDR FOR WORK FILE OOOI86OO 

TPOKREL *# * CURR WRK FILE ADOR 00018700 

% TYPF OF FILE WORKING ON OOOlSflOQ 

% NAME Qf Current source file 00018900 
% Address op first esp seg 00019000 

—i — SKCiiNQ rsp Segment OMiS-Uia. 



LIBMSGCTR 
ETIME 

schedname 



AC373 
AC383 
AC393 






% FIRST NAME OF THING RUNNING 00019200 
» LAST NAME OF THING RUNNING 00019300 
It NAME OF CURRENT OBJECT FIlE Qo019aQ0 



TIMELIMITS* 
NOTIFYBIT « 
N O T I F I ED » 



* NO OF UlBMTNCE MSqS, 
% EXECUTION TIME. 
NAME OF SCHEDULE FILE 



AC 39 3 #, % AUTHOR I 2E0 
AC393,C2U3 *> X "ON" 
BOOLEANCNQTIFYilT) #> 



00019500 
00019550 
00019560 



TIME 

WHEN 



PERIOD 
NOTIFIEO 



NOTiFYTlML = A[4D3 «* 
TIMERESTRICTBIT a AC39J.C3«13 #» 
RESTRICTEDLANGUAGES - AtUM t» 



00019600 
00019602 
00019604 



RESTRICTEDVER6S « AC42J#» % 

GRACEPERIOD « 0,25 U* 

lOTOT » AC44 3 *» % TOTAL 10 



AND AC«33 

TIME FOR THIS LL 



00019606 
00019608 
Q001 96 1Q 



COMMONCELL s AC453 ** 
CHKSEQNMBH = AC46] #* * 
OPTIONBITS = A C 4 /' 3 # * * 



00019620 
00019622 
00Q19624 



ESPWORO 
ESPFLA6 
ESPCOUNT 



= AC4a3 #* * LABEL 
* ESPrtORD.[Hl3«# 
g ESPWORO, [2»83*» 



NEXT SEO NU. pUR bLOc^ XMJSSN 
USERS "SPECIAL" OPT IO N S 



00019626 
00019627 
00019628 



EOUATIQN INFO 



BOOLEAN 



% 
ARRAY 



FIRSTESP 



ESPWORD.C20:283*; 



00019630 
00019632 
00019634 



COMMENT! 
DEFINE 



LLCONTRCL C0«MAXlINES3; 



% LOGICAL LINE 



THE FOLLOWING DEFlWES ACCESS LLCCNTROL' 

Lew 8 LLC0NTR0LCLL3 #» X LINE CONTROL WORD, 

LBGgEQQN c LCW.C0ltl3 <r » 



00019636 

00019700 
CONTRQLfOQOl'^SOQ 



ALLD9NE 

BUSYLINE 

IDLELINE 



f INITIATEOWHILEBUSY 
» SEQMOOE 
* EQUATED 



LCW,C02!13 » % 
LCW.C03J1] « X 
NOT BUSYLINE »% 



00019900 
00020000 
00020100 



» LCW.t04>i3 t % 
- LCW.t05ll3 # X 

«LCW,C06I13 # X 



00020200 
00020300 
00020400 



LABEL EftUATEO 



00020500 
00020600 
0002Q700 



ri 



12 
13 



18 

19 

20 ' 

21 

22 

23 ' 

24 



27 
28 
29 I 
30 



33 
34 

35 I 

36 

37 

38 I 



41 
42 



47 
48 

49 
50 



e 



S5 

56< 



13 

14 

16 

17 
18 
19 



23 
24 
25 
26 
27 
28 



29 



33 

34 
35 
36 

37" 



39 



41 
42 



♦7 
•8 



49 
SO 



52 
i3 



55 
56 



DEFINE 
D EF I N E 



DEFINE 



DEFINE 
DEFINE 
DEFINE 



DEFINE 
DEFINE 



DEFINE 
DEFINE 



DEFINE 
DEFINE 



DATAENABLtD 

INQUIRY 

RESTARTNEfc-DKU 



WRITEASTERISK 
FILESOK 
GOODQBJ 



c LCW.C0 7I1] * -i 
= LCW, [08S ll it % 



BOJMSQ 
EQJMSG 
RUNNING 



« UCW,C10ll3 * % 
» LCW. till 1 3 # % 
m LCW.tl2>l] » St 



00020800 
00020900 
0Q.(J210Q0 



COMPRING 

LIBMTNCE 

ALLMCPMSQ 



UCW.tUJU * % 
LCW.[l4»i J # % 

LCh.ris; 1 3 J , * 



00021100 
00021200 
Q 00 2130Q 



DlSCONNECTlNii 

BREAKORWRU 

»15 



LCW.C16U3 # % 
LCW.ClTti] # % 
lCW.Ci3l53 I % 



00021400 

00021500 

■00021600 



= lCW,[18U3 
» LCw,Cl9ll3 

:34 



M? J50 



00021700 
00021600 
Q002190Q 



RESTART 

savedwhileinitbusy 

D6GLICENSE 



LOGGINGCN 
NODISKMCP 
C QNTINUFfilT 



ICW, C20M3 * X 

LCrtaziiu # * 

LCW.[22>1] I % 



00022000 
00022100 
00022200 



MONlTORBir 
NO ST OP 
SCHFnULiNF 



= LCW,C23t 13 » X 
= LCW, [24t i} » % 

- Lc;w.r25n ] » 



00022300 
00022400 
00022SQQ 



SCHEDULINK 

nosave 

-A L L TH I N fi S 



9 lCw,C26»13 # 

a LCw«C27;n # *DONT 

a LCW.r2BM3 * % 



00022510 
00022520 
Q 00 2 2' i3n- 



STOP SCHO. ON 



THINGSLAST 
THiNQSiiNK 
TH l N GS Tn P Q 



= HLALCaCHEOUHNE) 
= LCW, [291 l3 # % 
= LCW.C3Q; 181^ % 



00022540 

EHR00022550 

Q0Q22f^fln 



* LCW.C30S063# » 
« UCW.C36»063# % 
n LCW.r4gt63 A % 



00022585 
00022590 
00 22600 



00022700 
00022800 
00022900 



B 



BQCLEAN 
RE At 






CONCISEBIT 

CONCISE 

HFLPFULHIT 



a QBTlONBlTS.Clin#* 
s 8(C0NCISE8IT)#» 
QiTlQNBITS.Cgtll<il# 



00023000 
00023100 
00023?00 



HELPFUL 

QUICKUCGBIT 

QUlCKLOq 



QUICKBYEBIT 
QUICKS YE 
ALLQWMStSRIT 



= B(HELPFgLBlT)#» 

= 0»«riaNBITS.[3J13#' 

g BCQUlCKLQGBlTXt* 



00023202 
00023204 
0Q023? 0fi 



ALLOWMSG 
CCLQNGBIT 

CC L ON G 



« OPTIONBITS.C4S13*' 
» B(QUICK8YeBlT)#» 
n OPTlDNRITS^r>i«li#« 



0002320a 
00023210 
0Q Q23 2 1 2 



HELP TOGGLE 

NQRETRT 

UNLQCKTOSGLr 



= SCALLUWMSGBIT)** 
= aPTIUNBITb,[6:i3Jl(' 
B(CCLONGBlT)<l> 



00023214 
00023216 
0tf 23?tfl 



a OfTlGH8ITS.C7tl3#' 
» QlTlONaiTS.£8«l3#* 

» aPTiQN&TTa.tqiiiitt; 



00023220 
00023230 
0002 3 2 ^ , 



LEFTARROW 
QMARK = 12 n) 
WORDS « "W** », 



*; 



CHARS a 



00023250 
00023260 
00023970 



I NC( I NC 1 ) « INC I » a I NC !♦ 1 #1 

UPS » Si I* Si ♦ I #f 
UPP » PI la PI 4- I *t 



» 12 = 14 
"C" #J 



OCT = QUESTION MARK 



00023300 
00023400 
00023500 



UPT « TALLY 
iNCBdNCBl ) 
DECR(DECRI) 



»= TALLY + 1 #; 

s iNCBl >= BOOLEAN (REAL 

* DECRl «° DECRI - 1 »i 



00023600 
00023700 
0002 3800 



(INCBI )♦!)«; 



0ECBC0EC81) « OECBl l« BOOLEAN CREAi. (OECBl) - 1) *i 
MATCH<MATCH1*MATCh3)» if REAL(BOOLEAN(MATCHl) 
E^V B00LEAN(MATCH2)) 



00023900 
00024000 
00024100 



00024200 
00024300 
00024400 



T<^ 



9 

10 



h- 



10 

11 

12 
13 
14 
IS 



IS 
I 17 
18 
19 
20 
21 
22 
23 
24 
2S 
28 
27 



28 

29 

30 

31 " 

32 

33 

34 

3S 

36 

37" 

38 

39 



40 
41 
42 
43' 



45 
46 
I »7 
48 
49 ~ 
50 
51 
52 
53 
54 



55 
56 



DEFINE CaMPAR(CaMPArtl,CaMPAH2) = 



REALCNOr FALSE) THEN », 



DEFINE 
DEFINE 



HEALCBaOLEANtCQMPARn i;QV BOOLEAN ( CQMP A 
TENS • lOOOOOOOO #1 % TEN TO THE E 
GOERR ( GGERR 1 # QOERR 2 > »6E q IH ERR SW » « GO 

nne DDrt t UiAKiTt— UlATTCnu« .At r AU>_iiru 



00024500 
00024510 



(C0MPAH2?)':Rfc:AL(NUT F ALSF ) »> QQ0 24S?n 
"f^ic^ EIGHTH 00024600 

00024700 



DEFINE 



tRR(GGEKRi#a«ERR2J»0tGlH ERRSWI»QO£RRv;mSgPOINTER|«X 00024700 
GQERR2J WANTt«HAlTF0H»aOI lAMtaVERRUHj GO EXITJ END#f 000 24800 
HEDERROR = 00024810 



SCHEDERROR = 
BEGIK 
LINECLEARCLCW*AE*]); SCWBASE:=eASE;sSBAS£; 

WORKtOlJsREALCNGT FALSE); MSGPTrtMOi 
TAM IS urr&rHrRj onlMAisi: 



00024810 
00024820 
00024830 



lAM 10 vteacher; O0lNGt«i; 

G Q TH EXIT J 



END*; 
DEFINE ScRAMBLE(ScRA^'el-El#ScRAMBLE2J«C-2>< 

((SCRAMBLE!. [i:23l>SCRAMBl El. [24824]) MOD MUUU 

(SCRAMBLE2,Cl»233*SCR*M8LE2iC2«»243J MOD MODU 
nTSKaOTTOM^il* 



00024840 
00024650 



DlSKBOTTOMJUi* 
M0DULUS«13»^ OlRMQDsiagj; 



- L US X HO PUL MS 

MODULUS)* 



REAL system; 
ARRAY 



SCANPTR[OJ(LLWORUs-SBAiE)]; % POINTERS TO WORK ARRAY 



00024870 
00025000 

OjjOgSiafl,. 

00025200 
00025300 
0Q02540Q 
00025500 
00026000 



%*********k^,■k^,^,^,^,^,^,^,^,i,^,^,^,^,^,1r^,^,^,^,^,^,^,^,■^i^,^,i,^,^,^,^,^,^,^,^,^,1,^,^,^,^,^f^,^,^^^,^^f^,^,^,^, ^,^, »»<,»^t0QOg7O0O 



comment 



DOCUMENT 

THE 

DONE 



MENT 00027110 

ARRaY TOBEDONE is used TO STORE THINGS THAT HAVE TO BE00027120 

FOR A LIME auT MUST WAIT BECAUSE THE LlKt IS BhSY AN000027130 

OT HANDLE THiS INFO NOW, 00027140 



CANNOT HANDLE THiS INFO iNun, 
TOBECONTROL = CONTKQL '^OHD AS FOLLOWS 
^86 g COUNT OF NUMHTR UF RO^S USFO. 



ON, BIT 47 s ROW 0. 



J « u — 4= — v > t j u i ^ I — IXC — fMui*ini;.n, ur — nun j u r. u 

12836» BITS INDICATING ROW USED IF 
EACH ROW CONTAINS! 

WflRn « 31/S « NFXT ROW WITH TMPn F AR TUTS LpaTCAL Lt^e, 
12:36= /^HD WORD TO TURN OFF BIT IN 



1-15= 10 WORDS INPuTqaTA AND 5 wORyS Of 



TOBECONTROL. 
EVENTS INFO, 



00027150 

- 2 7160 -.. 

00027170 

00027180 
00027190 



REAL TOBECONTROL; 

REAL ARRAY TOBEDONE t08 35*01 20]; 

BEGIN X TO SEGMENT THE InIT CODE, 



00027200 
00027210 
000 2 7 22 



ai*****i 



PROCEDURE DISkIq (REASqn? 



00027300 
00027400 
******* it i,iH,i,*i,*%QC)Q27sa O 

00029900 
***********iir;t00OjOOO0 



"(READFLAG) 

" C A ) 
"(OFFSET) 



" -^-^'^gREASON NOf 4086= LOGICAL lI NE , OOP 30 lOQ 
1 « READ* s WRITE. ««».«--.- 






-(SIZE) 

"(DISKADDRESS); 



DISK I/O AREA, 
OFFSET INTO I/O AREA* 



" NO Of WORDS TO RLAD/WRITE, 



00030200 
00030300 
00030400 



VALUE 
REAL 

REAL 



%NQTEX 



REASON* REAOFLAG* OFFSET* 
REASON ' ' 

a; 



SIZ£# OlSKAODRESa; 



, RfADFLAG* OFFSET* SUEJ OlSKADDRESS; 
ARRAYC0 3* OFFSET » AREA WHERE I/O STARTS > 
IF OFFSET NEO u THEN A+UFFSET"! GETS DESTRO 

T r ATr r - 1 ^ : 



00030500 
00030600 
00030700 
00030800 
00030900 
00031000 



. -. _ - -YED,***«0003110C 
COMMUNICATE (-1); 00031200 

<********* *********i,i,***ii1i*****1H,i,i,****1H,1,i,i, ■!,■), 1H,1,*,i,1i ill, 1,1, ^1,.t,.ki,QQQ'^\-^\Q 

. -«....,...,. X. ^.^-- -„_.. „_^ __-.._..> 00031220 



%***************************** 111,***** ****** 1,1, I,***** 1,1,1,1,1,1, 1,1,1,*,1,1,1,1,1,1,1,1,1,.ki,QQQ'^\2\Q 

REAL C0MM2; X USED TO STORE C0MMUNICATE(*2) TO RELEASE CODE SEQMENT 00031220 
%**************************** **********m*****i,*****t,******i,i,**i,***in,i,**%QQQli\ 300 
PROCEDURE NEXTEVENT (WAlTBIT*CLOCK*A>j. X AC03« 0il*FLAQ BIT » 0, 00031400 
* * 181-SIGN BIT a 0. 00031500 

REAL WAITBIT* CLOCK; X 282-DO NOT TOUCh. 00031600 

ARRAY ACO3; X 18;7-REAS0N NO. 00031700 



WAITBIT* clock; 

AC03; 

BEGIN LABEL DUMMY; 



end; 



COMMUNICATE (-2); 



282-DO NOT TOUCH. 
ie87-REASON NO. 

2&«8-U0GlCAt LINE, 



00031600 
0003170 

00031750" 

00031800 

00031850 



^ 



_b 



COMMENT 



2 

3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 
13 
14 
i!6 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 



34 
35 
36 
37 ~ 
38 



39 
40 
41 
42 



43 
44 
45 
46 
47 
48 



49 
50 



51 
52 



54 
55 

56 ^'J 



WHEN This PROCEDURE lb CALLED: 

WAIJBIT MUST til, i IF WE \ilLL WAIT FOR AN I.VENT« 

IF WE 00 NOT WISH TO WAIT, 
WHEN THE MCP RETURNS TO THE PROGRAMI 



00031900 
00032000 
0003210Q 



inc. "i-r nciwnisa (w i nt rKUunwrii 

WAITBIT WILL BE 1 I F AN FVfNT IS BEING RETURNPH. 

IF NO EVENT AND NO WAIT; 



00032200 
00032300 
00032AOn 



u AT iNu tvti>ii wiNu «u wAii/ 00032500 



REAL PRQCEDliRF fiETFSPnTSK; 



It. I t.Qr\n^f\i LUMwuNn^Mih, fj); Qn03270n 

PROCEDURE FDRGETESPdISKCAdDR); value AOOR; REAi AdDR> COMMUNICATEC43; 00032900 



uvjc u*«»r» v«uun '# v^uwt «uu"» nt«*, i^Vunf CUWwUNi C«T t fav* 00UJ2900 
TINPUTCBUFF); ARRAY BuFFLOJ; COM^UN iC ATE (-5 ) ; 00033100 



PROCEDURE REQUES , _ ._, _., ^ ^^^ 

X****, ************* **4******************^**^,^^^^^^*^^^j^j^^^^^^^^^^^^^^^^^^^QQQ-j3200 
% REAL PROCEDURE GETUSERD ISK (N)> VALUE n; REAL N; COI^MtJNl C ATE (^M; nnn^^j n p 

PROCEDURE fqrgetuserdisk ca,n); value a, n; real a,n; communicate (-7); 00033500 

00033700 



%********************», 



PROCEDURE OISKWAlTCIC*AREA>WDSf ADDRJJ 

VALUE io^wos^addr; 

-j8£Ai intWDSfAnPR? 



00033800 



ARRAY AREAC03; 
COMMUNICATE (-8); 



00034000 
00034100 



' '"• "- '^""'^ *r,>.. r.c-.. .,. 00034300 



AW".ninTW»»»w*wy«wy** w***«****** *********************^t*«*A*** 

% PROCEDURE controlcard (r*a); valul r; array acc]/ heal r; 

% communicate (-9); % aEAbQNsR.t 3357], LLsR.I^OJe 



] 



00034400 



%******■»•********** ***************** 1•*^,1,^,ii^,i,■^,■ki,^,^,*^,1,^,^,^,1,^,^,1,^,i,^,1,^,^,^,^,^,^^^,^,^,^QQQ■^Hc^QQ 
% PROCEDURE SETUSER CCODE); VALUE CODE) REAL CODE; COMMUNICATE (-10); 0003460o" 



.wy^jr TMvuw wvo-i-^ "u«u v,uu'-f VUWnuiNiV,« It. K " I ) f OOOJ'tOOO 

%**************** ****************** **1,******************i,*1,*i,1,1,iH,i,1,t,1,i,1,%nQ0^llJQQ 

DlSK0UTCpISK0UTl#DlSKQUT2)a » 00034800 



DEFINE 



WJKjrvuw I vui*»r\UV I A »UJl JftUU I gy " * 

DlSKiO(LL&13[33J41J7]*0»WORKtO]*0#DlSKOUT2#DlSKGUTl3*; OOO3490O 

%********************************** ****1,***-k1,i,i,1,***i,l,i,i,i,i,i,i,i,i,i,i,i,i,i, in, mi, ^QQQ2^QQQ 

DEF INE n TSktoR T TT rn T <;i^WD r TP 1 1 = * ^^^^^ 



DiSKWRITECDiSKWRITEn - % 



£X_mt UiaKWHITHDIbKWRITtl J - % 0Q035lQn 

DlSKiaCLL«il3[33J4ll73*00#WQRKEU3,0O,30,DlSKWRiTEl) #/ 00035200 
M** ********************** a, ****iii,*******i,**i, 1,1, 1,1, ^,^l1,t,^,^,^,^,^,^,^n,i,1,1,^,^,^,^,^,^,^,^ 00035300 

PROCEDURE TWXOUT lRfA,H*7)i VALUE R#N;>T; REAL R^A.N^T; 00Q354OO 

IF NOT DISCCNNECTING ThEN X WRITES ARE G,K. 00035500 

COMMUNICATE ("12); % T.CF=# OF LFb^T.FFsl FUR NU CM 00035600 
%******************************i,******i,-k*i,i,i,i,i,i,i,*i,i,i,i,i,in,i,i,i,i,in,i,i,i,i,^^^^ 00035700 
REAL LITOUTSTORFJ X KrFPS CWARAr.TFRS BirTNfl niiTPiiT rv i TrniiT " " 



REAL LITOUTSTORe; X keeps CHARACTERS BEINS OUTPUT BY LITOUT 00035750 

%********************************1,*****1,***1,*1,* 11*1,1,1(1, 1,1,1,1,1, 1,1,1,1,1,1, 1,1,1,^,1, llll^QQQ^^JJ^ 

PROCEDURE LITQUT fX*frRii value X.<«RJ HFAt x.roj Artn^c«AA 



PROCEDURE LITOUT CX^CRi; VALUE K,CR^ REAL X#CRJ 



%************************1,***t1,1,*1,***1,1,1,*1,1,1H,1,1,i,*i,1,1,i,1,1,i,1,^i,1,1,i,i,i,i, 

BEGIN 

STREAM PROCEDURE BlANK(X#Y); 



< 30Q3g60Q 



BEGIN 

sit*x; Dli»Yj ds«*wdS; Dii»oi*aj sifssi-8; 

7(rF SCX**0** THEN JUMP OUT; DSi«LlT'* **; Sll^SUl); 



00035900 
00036000 
00036050 



end; 

blankcx* litoutstore); 
twxoutcll* lit0utst0he> 



00036100 
00036150 
0003 62 00 



a* CR); 



, END LITOUT; 

X* * *>* ********* ** « « ************* * It * ********************* Jl; 

PROCEDURE Gets €R>R#N»L»U*T»X3j VALUE R^F#N^L*U»T»x; 



00036250 
00036300 
00036350 



REAL R*F*N,L#U*T*X; 
COMMUNICATE (-13); 
DEFINE COM15(CQM151^COM152#COM153»CUM154^COM155,CGM156) 

«CC15(COMl51*C0M152,0OMl53,C0«l54*COMl55,C0Ml56,0)#; 

rnui KTmrr 1 c* 1 



00036400 
OOG3S50a 
00036600 



00036700 
00036800 
00036820 



DEFINE CQM157«CC15#; 00036860 

%* ************************************* ***it1,*1,i,***,it1,1, 1,1,1,' t If *1,*1,1,i,i,i,l,i,i,i,i,i,QQQ269^ <) 



000 36840 
00036860 



3 
4 

M 

6 
7 

9 

10 

12 

13 

14 I 
15 
16 

18 

19 

20 ^ 

21 

22 

23 I 

24 

25 

26 ^ 

27 

2i 

29 ^ 

30 

31 

32 I 

33 

34 

35 ^ 

36 

37 

38 

39 

40 

41 

42 

43 

44 I 

45 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 



• 



m • 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



19 
20 



22 
23 



24 

25 



26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 
43 



45 
46 
47 
48 



49 
SO 
51 
S2 
S3 
S4 
S5 

s« 



DEFINE FlND(FINDl*FIND2*FlND3,FiND4,KlNCb) 00037000 

aC0M15(FIN01#FlNrJ2#FIi\ID3,FIlMD4.riND5^15))»^ 000 37100 

COMMENT-'ON RETURN* 000373GO 

EVENTSCn* PROTECT CODE (SAME AS ALGOL SEARCHJ 00037400 

ro, r,.i,- >.,rco. n.. _ no037500 



C2i.ri tiia TMTiTRf nri( 



f C18«l53s HEADER AUDR 
,C36«63s FILE TYPE 
.C^2«63= OPEN COUNT 



C3]» EOF COUNT 

C43B ADDR OF 1ST RECORDi 



DEFINE MAKEFILE =C0^<l5»; 

% EVENTSC1]= ADDR QF 1ST RECORD 
- * EVENTSC23« HEACFR ^0M 



STAATUS(STAATUSl*STAAtUS2#STAATUS3»STAATUS»4)» 
fSTAATUSl* l3#STAATUS3*STAATU'i3»STAATllS/i.n*nV«; 



0EFlNE-biM«iuo\3i«Hiu3i»3n*Atua<!:'»aiA«(USJ»3TAATUi;»*»J* 
CCl5CSTAATUSlM3>STAATUS3>STAATU5 3,STAATtJSaiiQ^O)Ji 
X (IN RFTllRWl 



X ON RETURNI 

% EVENTSCn-PROCESS TIME 

X EVENT5[2]aI0 TikF 



C -1 IF NOT RUNNING i 



X EVENTSC33SC0NTENTS OF R+27 C IF COMPILING ) 
X**«******************* *«****«*«****« ******** * * ********, 
PROCEDURE LOGON (LGW>A)J BQQlEAN LCR; ARRAY AC03; 
RFCi M I Ann nhMim V : 



begin label dummy; 
uqggedon j» true; 

lOnONTIMF ;? TlMFCUf 



% ^AVF START TTWc:. 



ESPl »a GETESPDiSKi ESp2 »« GETESPUlSKi 

IF NOT SCHEOULJNE THEN % LET SCHEO CALL LOGONt 
C0Mi5fLL<l3r33l41i7 3.3/uSERCaD E>CMARr,E*O,T0LETTMr)J 
END I Qfinw; 



END logon; 

X******************************** 

PROCEDURE logoff(lc»»»a); boolean low; 



BEGIN LABEL DUMMY; 

IF LOGGEDON THEN XESP TO UIVE BACK, 

BEGIN LOGGFOQN ta FALSf; 



********************************** 
■ " - ■ ARRAY A[U]; 



Then FURGETt.i>PDlSK(t.iiPlJ> 

Then furgeT£oPqisk(e='P2)' 



IF eSPI NeQ 

IF eSP2 NeQ u I Ht!^ FUKtiEi t'^f'DI^^ C E^^''? J' 

cQMl5(LL&l3r3itai:73^2^USL^^cODE^CHARGE. Clt4i]M/3600 ); 
END IF LOGGEDON; 



00037600 

00037700 

-ai^Q37flQ0 



00037900 
00038000 
00036100 



00038200 

00038300 

.-Q 0P3 6iafl- 



00038500 

00038510 

-00038520- 



00038530 
000385^0 
00039550. 



00038560 
00038900 
Q0039 nQn 



00039050 
00039100 

ono39i5a- 



00039200 

00039290 

00039300 

00039a00 

00039500 

00039600 

000 39610 

00039620 

Op OliZM, 

00039800 

00039900 

00040000 



00040050 
00040100 



END logoff; uuu«*uiuu 

X**************** * * **•****»***«»»**********»**** * * * * * ******** * * ********»00040200 
DEFINE ScHEDGOTOCSCHEDGOTODs ""^ 00040205 

C0Ml5(LL&l3C33!41:7],9,sChtDG0T01,0*0*0)«; 00040210 

a**************************** ** **************** *************************Q0040pi5 



DEFINE REQUEST iP(HeQuESTlPl)* 

COMi5(ReOUESTIPU13C33«41J73mO'0#0#0*Q)*; 
******************************************************* 
FFTWr 5>f:wrn«iTAT^<;rurnSTATi^- 



X 



DEFINE SCHEDSTAT(SCHEDi)TATl) = 

C0Ml5(LL&IAMC33»4i:7],ll,iCHED^TAT l,Ui>LRCOOE*0*0)*; 
************************* *****»******»«***»*******^^***^t**^***j,^^^t^,^^ 

EFINE SCHEDSTOPf SCHTDSTOPl Jr 



00040220 
0Q040225 
************** **Q0040230 



X*' 



C0MMUMCATE(«15)> 

% ♦*■* ********** ** *'** * *;#«'**'« *;*' #'»*'*;! «'* * It *'•#■*■* ***.** *■* * * *.* ** * * 
pEflNE REHOVEFliE(aEM0V£FIL£l#fllMiVeFlLE2#REM0VEFlLE3)t 



00040235 
00040240 
****00U40245 

00040250 
00040255 

300 
3400 
)500 



*'**************** 



00040600 
00040700 
00040600 



2 
3 
4 

5 

6 
7 



h 



C0Ml5CRfc:MOVEFlLEl*3'«E.M0VE:FlLit2'Hc.M0Vc:FlLt:3*0'0)#; 

DEFINE CHAN(?FF,TLF(ChAN^^EFll £l>CHANQfc,F tL&Sr r.HANQi^F I|,„£ a> 

rHANaFriLra<rHAN(;rrTLr%}«r.nMilfrHAM(;rFTLri.^.r.HAMarr 



I- INE ttHANt;FFJL6r(ChAN^»£Fil 1 1 > Cr'AN'^t^F tLfcS f C.H ANiji^P M,.£.1> 

CHANGEFlLEft*CHANGEFlLe5)«C0MlSCCHANQE;FlUEl'5'CHANGEFlLE2» 
CHANGEFliE3»CHANGEFlLEA»CHANQ£FlLE5)*i 

■kl,******** ******************* IHiiHi***************^,******** 



00040900 

******************QQ04l000 

ono^tioo 



%******************************************************** 

DEFINE REPU ACE ( REPLACE 1, REPLACE 2# REPLACE if RtPL ACE 4, REPlA 

C0M157 (REPLACE!* 4^ REPLACE2* REPLACE Jf REPLACED 'iiE^LACE5^ 
%********************^,***^,***^r*^,***1l*•l,1,1,***^,*^,■^t^,**^,^,1,^,^, 

DEFINE SECURE(SECURE1*SECURE2*SECURE3)X 



00041200 

00041300 
************ ************aoQa\ nap 

'''"■■,REPlACE5*REPLACE6)= 00041500 

00041600 
00041700 



REPLACES)*; 



SECURE (SECURE I* SECURE2* SECURED )X 

«C0Ml5?(LL«Ut33J41l?3#7*SECUREl#USEHC0DE»US£RC00£# 
SECURE?>SEnURE3>iitJ 



00041800 
00041900 
O Q042 OQ0 



X****************************** ***************** ************************oo043000 



10 

11 

12 
13 
14 
15 
16 
17 
18 



PROCEDURE CCCOM(LL*UC,C); VALUE LL*UC>C; REAL LL'UC,C; 

C0MMUNICATE(''17); % CARRIAGE CONTHQl CqmmunICAtE tCs^»LQNG) 



00043100 
0Q9432Q0 



= . — »- _« — — - ^ ,,r,^-',^T.:.:.;^-i.v7 — '•^'.'.'.•' v,'!,* x.. i..r.. , v,Y,-.i.,f,hi,w,i:'>'/, „ vuvi j<;uu 

%********************** * * * **************************** ********i«t*********o 00 49700 
BEGIN % TO SEGMENT THE NEGATIVE COMMUNICATES. 00049800 

^ ^ ^^ ^ a. ^ * ^ ^ ^ ^ ... X ^ ^ ._ ^ .. ^ ^ ^ .... !ai ^tj|***»»»^Ht** *******:*••**********♦* 



%******************************* 



STREAM PROCEDURE MOvE (N)"NO i]F"(mC 
X************************************ 

VALUE N* wc; 



Qn0490Qn 



w w w " ^ -w If w K w w " w w if'^ n n ^m T * w w w It It m w m w U tl U w V W U U 

C)"W=WDS* C=ChR FRCM"(A)" TO "(B); 00050000 
**********************************I0Q050100 



IS 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 



LOCAL 



BEGIN 



00 50200. 



SI»LOC 



Hi SI»Sl*6j DULOC t; Di.-oi-»7; ds»chr; 



00050300 
00050400 
00050500 



Di<- b; 

IF SC = 
BEGIN Sl«- 



si<-LOC wc; si4-ii + 7; 

"W then 

a; D5- n wqs; 



00050600 
00050700 
0Q0508QQ 



t(ds<.32 wds; 
end of word mover 

ELSE _^^ 



DS«-32 rtoS); 



00050900 
00051000 
QQOSn QQ 



BEGIN SI* a; D5«- n chh; 

T(DS«.32 CHR; DS«-32 
END OF CHAR MUVFR 



CHR); 



00051200 
00051300 
QQ05 140 



31 
32 
33 



34 

35 

36 

37" 

38 

39 



END OF move; 



tlNU Ut MUVt* 

%***************************** ft*********************************** 



STREAM PROCEDURE SLANK(X)j 



JtncAM rnuWLUUWL OLAWKlAJi _, 

X***************************************************************** 
BEGIN 



00051500 
00051600 
Q Q 517QQ 



Dn=x; si>=x; 



00051800 
00051900 

ooosgooo 



7(IF SCs^O" THEN ELSE JUMP OUT; DSSsLH" "; UPS;) 00052100 

END STREAM BLANK; 00052200 

%***** ******************************* ******** *********** ** ***ilnlr*»***»**iQQ05a';iQQ 



40 

41 
42 



INTEGER STREAM PROCEDURE 
VALUE OCTV; 

BEGIN S I» LQC Q CTv ; 



DECCONV (UCTV); 

di«-l Q c p E cc a Nv ; ps^h t?E 



U- 



00054400 

00054500 

00054600 



43 
44 
45 



END 



.&LAC. 



OF DECIMAL CONVfRt; 

***** 

ACKeuT; 



- "--^ - - - 00054700 

X*******************«****#*** *************** ********«*********«*********00054800 
PRQCCOURE " 



00054900 



<6 
47 
48 



X***********************************************************************QQ055000 



BEGIN REAL I> 
STREAM PRO C EDURE 



Bn(I* W); VAL UE i' 



00055100 
00055200 



49 



61 
52 
S3 
M 



BEGIN 

sii»LOc i; sit»sU7; ouswi osi»chr; 

7{sn»siwiji QSifCHR); ■■ '.■'■'•• 



00055300 

00055400 

00055500 



END STREAM PROCEDURE BO; 
FOR U»"M''#"W"*"#"»''S"*"P" 00 
BEGIN 



00055600 
00055700 
00055600 



55 

S6 



BOdjiWORK); 

TWX0UT(LL*W0RKC03*8»CR); 
ENOi -_ 



00055900 
00056000 
00056100 



m t 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
)3 
14 
15 
16 
17 
IB 



19 
I 20 

21 

22 
I 23 

24 

25 

26 

27 

28 

29 

30 

31" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

•3 



45 
46 
47 
48 
•9 
50 
51 
52 
53 
54 



55 



. 



END PROCEDURE BLACKOUT; 
STRE A M PR n cmuR E f.U AK( 6 t N ) ,? 



VAi.UF fill 



air^e , A M pw n cF . nuR E r.i.,.EAK( AiN); vAi.UF hi ^^___ 

************ ♦**********♦******ll,t|#«♦*#*♦******^^**#***^^#^^*******^*^^JJ 
BFGlW ■ ■ ■ 



00056200 
000b6300 
00Q'36<100- 



BCGIN 
COMMENT CLEARS A * K WQRnS STARTING AT A 



♦ 1; 



di»=a; ds:=6 lit "ooou"; su=a; D3:=n kds; 
END clear; 



00056500 
00056600 
QQ0S67Q0 



"^ . . . 1 " . . "T»wiT"lgWW?TWWW "WIT 

STREAM PROCEDURE TIMEUS£D(V»*HMSTX); VALUE HMSTX; 

%***********«****************** *«******«***«« ****** 

DC/i THI 1 rtf A I t-VI i 



BEGIN LOCAL SVl 



*************** 



DI»=W; SlJsLOC HMSTX; 
DS«s2 CHRi 0S«=6 LIT " HRb* 
DS:ag CMRi DS>=6 LIT " MIN. 



000b6a00 

00056900 

Q00 57Q QiL 

00057100 

00057200 

00057^00 






DS»»2 CHRi 
OSl«i CHR 

DsiwaaLTT 



DSI«1 LIT 
; 0S»*5 LIT 

"1 ■■ ■ 



•',"; 



O0O57a00 

00057500 

■00057600 



" SEC,«I 



% VOID 



Dn=w; dS! = i8fill; svssdi; 

siissv; DiJsw; dsj=lit" "; os:s25chr; dsjslit leftarrok; 



END TIMEUSEDJ 
% * * ************************************************* * * * * * « * * ****** 

STREAM procedure TIMEOFDAY CII»HMSTX ) j VALUE HmSTX; 

<Vu.li.J.M l_l_>^^ •_._!.. 4.-1.. . . . .. . . 



00057700 
00057800 
0QO57.aflj?_ 

00058000 
00058100 



%******************************« 
BEGIN 

-_ dh-w; dsi^ltt' 



**********«****ii,****************** 
shclqc hmstx; 



00058300 
00058400 
00058500 



dsj«2 chr; OS •••Lit "s"; dsis2 chh; 

Sil»Sl*3* 

IF SC»^A" TH FN nSi«A L I T'* AM . " g L S f DStafl LTT*< PM.wt 



00058600 
00058700 
00 0588 Q -Q_ 



DI»«W; DS»s2FILL; 

end timeofday; 

*********************************************** 



X****************** 



REAt. PROCEDURE TlM£CONV(T*B)r VALUE T#8I REAL T; BOOLEAN B; 

X ***************************** * ** ********************************* 

Beaiw 



00058900 
00059000 

OOQ59100 

00059200 
00059300 
O QO5 9 4 QQ 



REAL AP; 

INTEGER HNS, MU, SEC, TStC; 

REAL STREAM PROCEDURE ST f H> M» S^ T* X ) > 



00059500 
00059600 



BEGIN 



00059800 
00059900 
000600QQ 



I 

DjisLoc STJ siish; dsi*2 oec; si:«m; ds{s2 dec; 



si; = x; bii = si + 7; Dii:=CHH; 

END STREAM ST; 
HRS »= T UIV 216000; 



OOO6OIOO 
00060200 
0QQ603QQ 



M|N l»CT OIV 
S€C l«{T DXV 
TSECmfT DTV 



3600) MOD 60; 
60> MOO 601 
6) MOD 10; 



00060400 
OOU6O5OO 
00060600 



IF HRS GTR 11 THEN APl= "P" ELSE AH:s 

IF HRS GTR 12 Then HRo!=HHS-12; 

IF R THEN IF HRS L^S QA THEN HRSi= l ^i 



00060700 
00060800 
00060900 



•*j — *> — ■ iifcn — ..*.T .i .. ,. . , .f . ij , ->v ,,, wr W. . .M , * — 1 , 11 1- i n — nnw ■ r 

riMECON VrwST C HRS* M|N» sec * TSEC , AP ) ; 



00061000 

ooooiioo 

00O6UQ0 



END TIMECONVi 



x*********»*****#*»*t »*****♦********♦*********♦*»*♦»*»**»»****♦* *******xoQ06iao 

REAL PROCEDURE MAkEFNCFT, ll ); VALUE LL'FT; REAL LL'FT; 0006190 

X******************** ******************************************* ********oooe2oo 

BEGIN ^ __^ 0006210 



H ,c VI, ,t ^y 

REAL STREAM PROCEDURE FNCFT'LD; VALUE LL»FTl 
BEGIN 

si»*Loc ft; siissus; di»blqc fn; dsi»3chrj 



00061300 
00061400 

»»************»itoQ06iaoo 





0_ 

00Q62200 

00062300 

00062400 



"W~l« 



2 
3 

4 
5 



h 



Si:=LGC Ll; DSi=3DEc; DS:=dLH 
END STREAM PROCEDURE FN; 
M A KE FN»=rNCFT>( Ll.* SYST FH ) ?,; 



" »i 



End procedure makefn* 

X** ***************** *tk ********** t***** A**************); 
PROCEDURE CHKPT CA); ARRAY ALOU 



X*****************************«***********«*********x 
BEGIN LABEL DUMMY; 

RLCw ta realclcw); % SAVE tugglLj in stack 



0006^500 
00062600 
00^62700 
00062800 

00062900 
OQ0630 QQ 



00063100 
00063200 
0QO63?10 



MOVE(40*WORDS/A[TBASE3,y«ORKClOxTPREC]); 
DISKQUTCTPDKADR#10xTPREC+*0); 

END chkpt; 



X**************************************«************** 



00063300 
00063400 
QQQ635Q0 



10 

11 

12 
13 
14 

ilS_ 
|l6 
17 
18 



PROCEDURE CANCELCKPT(A); 
BEGIN LABEL DUMMY; 



ARRAY A[OJ; 



00063600 
00063700 
00063600 



RLCW ta REALCLCW); X SAVE TOGGLES IN STACK 
TABLEINFO Js OJ 
AfTBASE*10] <c TENfl; ^ 



00063810 
00063900 
QQOfeaoon 



M0VE(30»WQR0S^A[TBASE+l0]*W0RKt0J); 

diskwritecwrktbladr); 
.Lud ca ncfl ckpt; 



0006^100 
00064200 
064300 



EM] CANCFLCKPT; 0006430Q 

%******************♦**♦********************************* #**********4****00064400 
REAL PROCEDURE DATECONVCOATE ); VALUE DATE; REAL OaTe; 00064500 

X************** ***************************************** ****************oo06fl600 
BEGIN 00064700 



19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 



BEGIN 

REAL M^DfY; ARRAY LCO'lis]' 



00064700 

00064800 

064' 



INTEGER STREAM PROCEDURE OCTCONV (OECVjj 

VALUE DECV; 
BEGIN SI«>L0C DECVr QULOC OCTcONV; D8«-8 OCT; 



-OOi 



1900 



00065000 

00065100 
00065900 



END OF OCTAL CONVERT; 



Fill LC*] WITH 0f3lr6Q»9in2Ul5^M92^213i;^44f274>3q'i»335f366 



00065300 

,00065400 

QQ0655QQ 



31 
32 
33 
34 
35 



MJsDECCONV(OATE); D » «OCTCONVCM, t 301183); Y isQCTCDNV CM# C 18 » 123 ); 

IF D GTR 60 THEN IF Y, £46123 NEQ THEN n»»0+i; 

Yl»M.Clftll?3i Mt»Oi DO Ml*M-H tiNTIl P LEQ irM3 QR Mslg; 



00065600 
00065700 
00065600 



DlsDECCONV(D-LtM-l]); M ! sQECCONV CM ) ; 

DATECONV:="O/OO/00"&MtlJ37ni3&OU8:36{l2 3dYC36:36:i2 3; 
END PROC£DURF DATFCONV, 



LiNu rn.uuLuunr — uw i ryuixv « ^ _ — -^ 

%***************************************************************** 

DEFINE MAKEDATE » 
DATE«»w/00/oow<tfDATEr»TlMFt5VUt1l3UlUQATr[l8{24tl2UnATFC36l36ll3 1f J 



00065900 
00066000 

noofifeioo 



37 
38 
39 



00066900 
00067000 
Q QQ671 Q0 



%********************************************************************% 00068700 
REAL STREAM PROCEDURE FnONLY (rt i ,W2>F , S ) ; VALUE F,3; 00068800 

r***** *******»**»♦***.******«******»»•*•***»»**•* ******% 00068900 



40 
41 
42 



ai********i 



43 

44 
45 

te 

47 
*6 
49 
50 
51 
52 
53 
S4 
55 



eEGIN 

LABEL SPRED* EXIT! 
01 i« WU 



00069000 
00069100 
OnQ69?Q0 



OS i» 5 LIT "FILE*"; 

SI j« Loc f; ups; 

TALLY t= 5 J 



00069300 
O0O69400 
QQQ695 QQ 



CI «« CI ♦ s; 

GO TO spred; 
PS i» 6 chr; 



TALLY 
GO TO 
SPRFDI 



00069600 
00069700 
00069800 



«= ii; 

EXIT; 



00069900 
00070000 
00070^00 



6(IF SC s ALPHA THEN ELSE JUMP OUT; 

OS i» chr; upt); 

EXIT» . 



00070200 
00070300 

OOP 7040 



m t 



10 



12 

13 
14 
IS 



18 

17 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

» 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 
«3 



45 
46 
I 47 
48 
49 
50 
51 
52 
53 
54 



5S 
56 



DS J= 2 LIT ♦' -"; 

FNONLY Js tally; 
$ := Di; 



TALLY «= TALLf + 2i 



SI 

DI 

J1S_ 



I a 

IK 



LOC 

W2; 

wDs ; 



s; 



00U70500 
000?'0600 

QQ^;707on 



LND OF fnonly; 

PROCEDURE GENFILINF (FN# FT)J VAlUF '"'"- *"■" '"'■*' ■""'- 



00070800 
00070900 
QQ071QQQ 



FN* FTJ HeAl FN* FT; 



ooonioo 

00073500 
J3M 736Q0 



X************* * * * ****** ♦ ** *********************************% 
BEGIN 

-^^^ — X^ D; ^ . _ — QnQ73Qnn 

• • ,,..,,,,.,,.,,,.,, ,...,000 74000 



00073700 

00073800 
00073900 



REAL STREAM PROCEDURE 

BEGIN 



TYPEONLY (1N»T*S); VALUE rt'T*S/ 



LABEL 

LOCAL 

-QX. 



SPRED* 

x; 
tin ; 



exit; 



00074100 
.00074200. 



DSt«6 LIT 
SI »s LOC 

ups; 



♦♦ TYPE*"; 

t; 



TALLY := lO; 



00074300 
00074400 
00074500 



CI >a CI ♦ s; 

GO TO SPREO; 

DS !■ 7 chr; 



00074600 
00074700 

00074800 



TALLY »« 17; 

GO TO exit; 

S PR E D > 



00074900 
00075000 
00075100. 



7(IF SC • ALPHA THEN ELSE JUMP OuT; 

OS x« chr; upt); 

nS Iff LIT 



00075200 
00075300 
075 4 00 - 



EXITJ 

DS :» 4 LIT " - 
TYPEONL Y <« TA IL Y ; 



-!!X 



00075500 
00075600 
OOQ75700 



n • 



E.ND OF TYPEONLY; 
X »s FNONLY 



00075800 
0OO75900 
00076000 



Onlt; 00076100 

•«.•••,**,**,.,*•.#•*•,«•••, •,,,,*,•,•,,,*,,,,,,,, ,,,,,,, 00076200 

(LfQ3» n^ FN^ 0)f 00076^00 

EONLY (D* FT* 0); 00076400 



X :s X + TYPEONLY (D* FT* 0)/ 
TWXOUT CLL* LC03* X* NOCRLF); 

END OF genfilinf; 



X******* 
PROCEDURE 



00076500 



^ ^.NF IL INE; 00076600 

******************************** «**********«**4t«*«^***«*A^,k^*A*j|gQQ^ggQQ 

E ERRORCS,lCW,A); value S; real S; boolean LCW; array AC0j;00078600 
forward; ' .^ 00078800 



x******************************************************^^*******^*^ 

real procedure dogsloosl; 
x**************************************************************<^* 



REAL 
LABE. 



BEGIN 



00076900 
00079000 
00079100 



ll#t; 

C0LLECT*£XIT> 



for LLI=MAXLINES ST£P "1 UNTIL Dti 
IF TI=DCGhOuSECLL] NLQ THEN 

IF CTRANDBASECH0WINUSE3 NEQ T THEN 



00079200 
00079300 
00079400 



IF NO OOGlIcCNSE THEN GO TO COLLECT; 



00079600 
00079700 
00079800 



DOGSAROUND |» DOGCATCHERS STR O; 

wecanuseqata I" NO oogsaround; 



IF WECANUSEDATA then * O.K. 
BEGIN % FIXUP TANK/QliJK HLADEH, 
DISKWAIT(1*wORK[*3*30*TANKFILl); 



TO RETURN DISK 



00079900 
00080000 

oooaoioo 



CLEAR(WDRKC10]*15); 
WORKCROWlNUSE+lOJiaCTRANOBASECROWlNUflJ) 
WQRKC03 »» ROWINUSE & (ROv^CQUNT <9 1 J Cl8i33»l5}; 



00080200 
00080300 
00080400 



00080500 
00080600 
00080700 



>T 



DISKWAIT(0^W0RK[*]>J0*TANKF1LlJ; 
FOR TJ=C STEP 1 UNTIL 15 00 
BEGIN 1 PCM GIVF A*vAY Th& CURKF.M H(3a. 



00080800 
000d0900 
OOOaiOQfl 



1 

2 

3 

S 
6 
7 
8 
9 
10 
11 
12 



IF T NEQ RQWINUSE AND CTRaNDBASEC T 3 NE« THEN 
BEGIN % GIVE BACK UNuSED UISK, 
FQRGETUSEHDTSKCrTRANDBASECTltTANKSlZF); 



0006 

000 a 

Qooa 



iioo 

1200 
13QQ- 



CTRANDBA5t[TJ := Qi 

END giveback; 

XNii FfiR i.unp; 



oooa 
oooa 
nnofl 



END 



rnLLECTi 



FIXUP TANK 
GO EXIT; 



header; 



uoo 

1500 
1600. 



0006 

oooa 
o oo a 



1700 
1600 
1900 



dqgcatchehs 
dqglicense 

DQGSIUCSE 



'•- dugcafchers + i; 

:= trie; 

«= L u; ^ ___. 



00062000 
00062100 

onoriPzno- 



13 

14 

|15_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 



EXITIEND DOGSLOQSE' 00082300 

%*****•****« A**************** ********* **iir*******************************00O624OO 
REAL PROCEDURE F I MP Al FTTERC WHRQ .T ABlE . T ABl ES I 7E ) J Q00a2-SQn 

;^*****************************vk**************************nr**************oo082510 
VALUE W0R0*TABLESIZE; RLal ^OPO'TaBlE^TABllSIZE; 

HFGTN LAHFl OUMMY; 

REAL STREAM PROCEDURE FNDaLETTERC WORD* TABLE* T aBLES i ZE ) ; 

VALUE woro*tablesize; 

it; HDUTTNE rOMPARFS ^'WTRO'* WTTH fNTRI£S 1H aRHaY "TarLF 



a nuuTiivt. CUWK&WtLS "WrHLi" WTIH ^'^'"i'^a T 'N &HKAT -rflBt-F" — nouM?8 

a; 1st CHR.OF each "TABLE" ENTRy=NO.[jF CHHs.iN nQt^D ([l:n=l IF COMP I lEH )0C0d2V 

X "Table" should be "TAdLEU]" to Uit ReFoKivEU value aS INqEX to "TaBLE"000830 

BEGIN local SV>T>Sgn; label FOuKU/lXIT;; .^ 000831 

siistable; svjsSi; tallys«i; ooo632 
lABLESiZEConsLOc sgn; osssZqn; :* save zcne bits 
Sitssv; slissUi; nir»LOc wqhD; ai;*Dl4r; i pqijvt td ist chrs. 



00062520 

82 6 - 
00082610 

00082700 

noQBPano- 

IF C0MPlLEH)0C0d2V00 

CO 

200 
00083300 

oooflaann 



28 
29 

30 



IF SC = DC THEN Jbl^P QUT TO FOU^vG; 

tally : = TALLY+l; SI: = sv; sil : = .'ii + c; Sv: = Sij; 

TALLY! = 0,,? FNQALFTTEHi = TALLY; OG Tu F.MT i J- 



IF ■vCI FQLNr.,. 



00083500 

CCOb3600 

n ti 3 7 n g 



31 
32 
33 



FOUND* 

tj^tally; si»*loc t; 

SIfLQC sgn; Olt»LOC 



DP»L0C FNuALETTtB; DSJ*»^Di>; 

fndaletter; ost»iijni % transfer sign 



00083800 
00083900 
00064000 



34 
35 
36 



EXlTJ 

END STREAM PROCEDURE FnDALETTEh; 
F IND ALE TTER ; »F ND ALE TTE R C WORD M able* TABLE SIZE); 



00084100 
00084200 
0Q Q842 1 



END PROCEDURE FINDALETTER; 00084220 

%♦*****♦*****************# **********************************************0o0a4300 
REAL PROCEDURE FINDAWQRDt W0RD>TABLE*T aBlESIZEI; A«n:.,..«« 



37 
38 
39 
W 
41 
42 
♦3" 



45 



%******************************************************************* 

VALUE word*tablesize; real word/tabll»tablesize; 
BEC'I N LABEI, D UMM Y ; 



00064400 



amiN LABEL dummy; 

REAL STREAM PROCEDURE FNOAWtROtWORD*! ABLE*TAflLCSlZE) ; 
VALUE WORO#TABt,ESI|EJ 
% RQUTIHE COMPARES **WOR0^ WITH ENTRIES IN ARRAY "TABLE" 
% 1ST CHR.OF FACH "TARlE" FKiTRYsNn.DF CHRS.IM WHRD fCl! 



****00084410 
00084420 
00 0845QO 



00084510 
00084600 
06084700 



46 
47 
18 
49 
90 
51 

a 
a 

S4 

is 

56 
S7 



% 1ST CHR.OF EACH "TABLE" ENTRY = N0.0F CHRS.IN WQRD CCUllal I 
% 1ST CHR, OF "WORD" = NO, OF CH«S. iNPuT BY USER ( MAX. = Y 
% "TABLE" SHOULD BE "TABLEtll" TU USE RETURNED VALUE AS INDEX 



F COMPILEH)00084a00 

) 00084900 

TO "TaBLE"00065000 



46 
47 ( 
48 
49 
50 { 
51 
52 
53 < 
54 
55 
66 t 
57 



BEGIN LOCAL SV#WROSlZ*TfllSIZ#tGNi LABEL FOUNOtEXITIi 
SittLOC word; OIMlOC WROSlZ; 011*0147; oSt*CMR; * WORD 
SIt«TABLEI Svmsn tALLYlBi; 



SjiE 



00085100 
00085200 

008 5300 



TABLESIZE(0H«L0C SGN; DSI=ZON; % SAVE ZONE BITS 00085400 

SI»»SV; DIt«LOC TBLSIZ; DlJaDl+7; DSJsNUM; X length of TABLE ENTRY 00085500 

SnsLOc wRnSiZ; SHSST47; huslUc trlstz; nn = nT47; oooasAQQ 



IF SC GEQ DC THEN % WROSIZ AT LEaST AS LARGE AS TBLSIZ 

BEGIN 
STf:^SVt STfaSUU DH alOC , HniP; nnaOTtU % POINT To A C 



O0085700 

00085800 

T U Al. C H RS* 00085900 



• • 



2 
3 



5 
6 
1 
8 
9 
10 
11 
1 



24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37" 



39 
40 
41 
42 
43 



45 
46 
t 47 
48 
49 
50 
51 
52 
53 
54 
S5 
56 



IF WRDSIZ SC s DC Th£N JUMP Qui TO FUuND; 

end; 



TALLY! »0; FNOAWOROJsTALiY; GO TO ExlT/ « If NOT FOUND 
FOUND » 
HRDSIZtsTAi ly; SUtiioc WHDSI7J DHainc rixinawnRD j ns : aWnS i 

SI:»LOC SGn; Dl!=LCC FN'DAWOt^D^ Oa:=ZON; % TRANJjPER 5IGN 
EXITJ 

ENO stream PRQCEDURf FlNDAHURUi 



00066000 
00066100 

noQ.aii2flo 



00086300 

O0O86A00 
oo0B 6'snn 



i-ojuu — w I , i , v t., n i : i — i n w v . u u v^ n u ,, r j, i ^ ,i. i , w , n , u , n M.I 

FINOAWORD«»FNDAWOR0(WORO«TA8LE'TA8LLi»I2E); 



00086600 

00086700 

.-0-0iid6-8i)-0- 



... ...^_^- ^,, 00086810 

END PROCEDURE FINOAWORO; 00086820 

"' •' '" ' "■■• ■" AtO]/ 00087603 



X ***•♦** 




X ESPFLAG 
3! f-'lLLED. 
% AND A NON 



El.SPCQUNT IS IlsCHFMENTED,n00aZ6i-Z: 



^•M-J- — i-JWJ* — ' ' . ' . " . 1 — ii, i. ^^ \- — euix^ — ■-■31 vm.uiv 1 — t ,1 jiNvni:, wc 
THE EVENT THaT THE ESFTaBuE IS COMPLETELY 

u^. >,rr CD ,. 13 Passed TO THIS pkucedure* 



IS TURNED Of^ In 

WHEN A NEGATIVE VALUE ffifi LL _- ..,___, ._ . .„ . ^._, 

NEGATIVE VALUE FOR APRS IS PASStD^ THE FNTftlES FQH THF 



10 Zero, ^hen 

iaPF_CIFlED LINE 



ANO ESPWORD Is RESET 



% SPECIFIED LINE ARE REmQvED Fr<UM Tht. TABlE, 

BOTH LL ANO ACHS AHt NEGATUE' fht EinRltS'FOh THE 
ARE REMOVED FROM THE TAbLE Mi\U THE ESP 5EGEMLNTS 



00087618 
00087619 
00087620 



X 
% 



ricu LUNC ftr<t HtNuynu r-i^uw inc. lABLh Mi\U IhL bSh^ ^jLGLMENTS 
ADDRESSED BY EACH TaBUE ENTRY aRE KeTUHNEO TO THE SYSTEM, ESPWORD 
IS ALSO RE-SET TO ZERO. 
B EG IN 



BEGIN : 

BOOLEAN DELINK, FORGET; REAL WV^OKU; lABEl EXIl 
DELINK := BOOLEANCLL. t 1 ! 13); Ll:=aBS(LL); 
FORGET ;= BODLEAnC AOKS.[i;n ); AL]K5!=ABb(AUHo J; 



n*0 STEP 1 UNTIL ESPTABlEsUE 00 



FOR 

IF DELINK THEN 
BEGIN 



IF BOOLEAN(CWOR[::»=ESPTABl-ELl] ).Ci;n ) THEa 
,.,noo r^,c,_.. 1^^^ ^ LI\TRY FUR THIS LIaL 



IF 



W0R0.[2»8]=LL 
BEGIN 



* VALID ENTRY 



000o76<^l 
00087622 
00067623 
00087624 
00087625 

00087628 
00087630 
000d7632 
00087634 
00087636 
00087638 



espcdunt js espcount - 1; 
if forget then 

I f (W0RD»aW0RD,[20<28J) NEa THEN FORGiTESPDISKC WORD ); 

THEN X NO MORE ENTRIES FOR THIS LINE 



00087640 
00087642 
000tj7ft4a 



ESPTABLEt I] J=0; 
IF ESPCOUNT = 
BEGIN 



00087646 
0008764 8 
00087650 



espword »» 0; g0 to exit^ 
end; 

ENOI X If ENTRY FOR THIS LINE 



END % IF DELINK 
ELSE 

BEGIN X ENTERI NG NEV< VALUE 



00087652 
00087654 

00087656 
00087658 
00087660 
00087662 



IN tablE 



IF NOT BOOLEANCESPTABLECU.CUU) THEN X AVAILABLE WORD 
SEGIN 
ESPTARLEtn <» -APaS ^ LLC2?40»83J 



00087664 
00067666 
00087668 



00087670 
00087672 
00087674 



#n« 



1^ 
2I 

3 

4 

5( 



7 
8 
9 
10 



jy 



>r 



9 

ro 
11 

12 
13 
14 

k 

tis" 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 



36 

37" 

38 

39 

40 

41 

42 

43" 

44 

45 

46 

47 

«8 

49 

SO 

51 

52 

S4 

S5 
56 



ESPCOUM := ESPCOUNT + i; 

GO TO exit; 

FNn; % TF AVAILABLE WuRO 



end; X IF ENTERING NEW VAtUE 
ESPFLAG l» IJ X NO ROOM IN TAfuES 
EXIT! 



00087676 
00007678 
00Q87660 



END PROCEDURE ENTEREiiP; 



000d7682 
00087684 
Qnafl76fl6- 
000B7688 



E.ND PHOCEDURE ENTERE^P; 000B7688 

X******************** *********************** *****^,*^^******^****^n^**^*^^*^QQQg77QQ 

REA L PRQC EDllRF SC A N f PTR> ST ArKW U Rn , GUMP tf^LiiF . rtllRKLNp /^ nRr. .P^■rR ) ? n QOi^TQnQ 

X********* ************************* *************** * * ****** **************oooa7eio 

VALUE COMPVALUE#WORKENDAORS; OOQ87820 



VALUE COMPVALUE#WORKENDAORS; 

REAL PTR*STACKWQRD«CQMPVAt Ugj WQRKENDADRS^PNTR; 

nrfiTKi I Ann rtnuuvs 



BEtilN LABEL DUMMY; 

REAL STREAM PROCEDURE SCnC PTR* ST AC KWQRD* COMPV ALUt* kSQRKENOADRS* PnTR ) ; 

VALUE COMPVALUE^WQRKENDADRS; 

BEGIN LOCAL SVfOV*T; LABEL BLNKS/EXIT; 

X PUTS A TOKEN INTO STaCKWDRO 



QQ087fl3Q 



00087900 
00087910 
00088000 



00088100 
00088200 



X PUTS A TOKEN INTO STaCKWDRO 00088200 
» RETURNS l»g*3 Or 5 FOR ALPHANUWErIC^NUMEhIC^SPfCIAL^END OF HFCOrd 00088300 

DiJsWORKENDADRS; DSJsLIT LEFtARRQW; it MARK EnO OF RECORD OOO884OO 

Si:sPTR; SHsSl+5; SlJ=Sc; % STARTING AUQRESS FUR bCAN 00068500 

^ yop 00088600 



BLNKSJ 

IF SC»" 
RFGTN 



THEN X IGNORE ALL BLANKS 



SI«=SI+i; 

end; 



GO TO sinks; 



IF Scs«v» THFN % IG NOR F A LL C OMMm S 



BEGIN 

sit«si>i; 

end; 



GO TO BLNKS; 



svt«si; siiaLOc sv; oij»pntr; dss^wds; 

IF SC a LEFTARROW THEN % CHECK FQH END 
BEG IN 



Si:sSv; DpsSTACKWURo; 
UF HECURU 



sv»*si; sii.LOc sv; suasi^-s; 

DV»«Di; Dlt»LOC WORKENDADRS; OiJsDI+Si 
IF 3 SO » DC THEN X END OF RECORD 



BEGIN 

DIJsDV; DS» = 7HT"8000000"; USJsLiT LEFTARRCW; 

TALLYias; scn:»tally; sijgsv; go to exit; 



end; X 
si»»sv; oi««ov; 

end; X IF LEFTARRQW 



i( 



9" THEN % LETTER OR DIGIT 



IF SC«ALPHA THEN IF Sc LEO 

BEGIN 
. IF SC GEO "0*' THEN IF Sc i^Lq "9" 1HEN> 



IF TOGGLE THEN X ©I GIT STRING 
BEGIN 
TALLYf«2f SCM»TALLY1 X CODE FHR nTGTT STRI NG 



tally«*i; SIJpSI+I; 

7(IF SC GEQ "0" THEN IF SC LEQ 

IF TOGGLE THFN F^ SF JUMP DH; 



'9" then; 



SH«St*l; lALLYtstALLY*U; 

Tl«TALiY| 8I»»SI-TJ OSi« T OCTl 60 TO EXIT; 

ENDi X IF DIGIT STRING 



TALLYJai; SCNJsTALLY; X CODE FOR ALPHANUMERIC STRING 

Dvt»oi; DS«*8LIT"0 ••; Di«sDi-7; tallyisq; 

7(IF SC a Al PHA THF>^ FLSE JdMP HIIT; 



00088700 
00088800 

-xxoiua*ao 



00089000 
00089100 

nngrt92nn 



00089300 
00089400 
00089500 



00089510 
00089600 

00697Q 



00089600 
00089900 
00090000 



00090100 
00090200 
00090300 



00090400 
00090500 
00090600 



00090700 
00090800 
0009090 



00091000 
0009 U 00 

ooQ9igon 



00091300 
00091400 
00091^00 



00091600 

00091700 
00091fiQQ 



00091900 

00092000 
00092100 



IF SC GTR COMPVALUE then JUMP OUT/ 00092200 

DSI-CHR; TALLY l«TALLY + t)l 00092300 

T»*TALU Yy svi«$i; sn«LOc T; aii«si*7i Dii'DVi nsi»cHR; % LrHatH 00092400 



3 

4 

M 

6 
7 

9 
10 

12 



"^1 



1 

I 2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
IS 



16 

17 
18 
19 
20 
21 
22 



o 



f 23 
24 
2S 
I 26 
27 
28 
> 23 
30 

31 ~ 
^ 32 
33 
34 
\ 35 
36 

37"" 
\ 38 
39 
40 
) 41 
42 

43 ~ 
I M 
45 
46 
I 47 
48 
49 
SO 
51 
52 
S3 
54 



55 
56 



sii«sv; 

63{IF SC = ALPHA THEN ELiJE JUMP UU7/ 

IF SC GTR COMPVAIUF THF^ JUMP our; sus.^r^p; 

/in Tn rv ? » i 



GO TO exit; 

end; X IF ALPHA 
TAlLYI«38 srisiiBf Ai { y: 



000«;2500 

000V2600 

,_QiI0i>2ZaXL 



» nnnr f or spFriii (^HARAngR 



DSls^LIT^eOOOOOO"; DiiJs;CHR; % RIGHT JUSTIFIEU 
SytaSi; ST>«iO r Sv; OTi=ptr; DSt^J^ns; it nfkt Arin»p .^s 



00092800 
00092900 
00093000- 



END STREAM PROCEDURE SCN; 

SCAn»»SCN(PTR,STACKWORD»COMPVAI.UE,WDRkEnDADRS,PnTR); 
END PROCEDURE SPAmI 



00093100 
00093200 



00093400 
00093410 

!nn*****;!********************** **************************** *************00093?00 

BOOLEAN PROCEDURE ^OUF I NDaVERS C STACK, VEr^BLQC, NUMOF VERBS J ; oSu936So 

VALUE NUMOFVERBSI REAl STACK. vFftBl DC*M„Mnrvfc Boci .> ****^*^*^*^* ,^_Q^3^ 

00093630 



VALUE NUMOFVERBSI REAL STAC«# ve«BLQC*NUM0rvtR8S; 

BEGIN 

LABEL L; 



BOOLEAN STREAM PROCEOURt Y0uFNUAVE«d(S TACK* VERBLUCf NUMOF VERBS) ^ 
VALUE NUM0FVEH85; 



B E G I N 



LABEL FOUND* AWAY; 

LOCAL T* SAVD; 

DI t« VER BLQC; SI !» STACKi 

NUMOFVERBSCIF SC GEO DC THEN 



00093700 
00093800 
QQU939_ao_ 



00094000 
00094100 
00094200 



BEGIN SaVD 

-PS t= chr; 



«= di; si:=si-i; 
ni if ;?Avn» 



DI »= LQc T; Ul := DI + 7} 



if t sc • dc then jum^ out to founo; 
01 »= savd; 

end; 



00094300 
00094400 
00094500- 



Si i» stack; 
01 la DI + 15); 

Gn a»<ay; 



00094600 
00094700 
Qn094ftnn 



7i DI »a stack; 

replace verb with UtriNlTlON 



FOUNOt SI IS savd; si is si 
OS !■ WDS; Tally i* i; 

YOUFNDAVERBtwTAI LY y _^ 

awayi end of youfindavehb; '~ ' 

YOUFlNDAvERB|«Y0UFNDAvERB(SrACK,VEK3LUC,NUMGFvERBs); 
END PROCEDURE YflUF TNP aVERh; 



00094900 
00095000 
00095100. 



00095200 

00095300 
OQ09 54QO 



00095500 
00095510 

REAL STREAM PROCEDURE ADDRESSfW); onoclrnn 

BEGIN Sl:,Wi AnnRFSSI:,fiT: TN^nf \ _00095800 

?***********************************************************•******»* ***nnnoKQno 
STREAM PROCEDURE ST I CkC P* A, ENDAURS ) > VAt.UE P^EnDAURS; 00096000 

*************** ************ -k***i.*********i,**i,ii.^i.^i,^*^,^^ ^,^,^^^,^^^^^^,^^^^^f,^(^^,^,^^ 

BEGIN LOCAL SV,DV; LABEL EXIT; ~ 0Q096gQQ ' 

X TRANSFERS SS MESSAGE F«OM WORK ARRAY 00096300 

Pn*A; osisanT** **> siigft; ds> « i4 wds; x blank 15 words 00096400 

DI:»ENDADRS; X INSERT RECORD MAHkER DS:=lIT lLFIARROw; "^ ^^ 

siisp; dii=a; 



?f60MF Sral,pFTApBpU| ThKH 
BEGIN 

svissi; 



00096500 
00096600 
00096700 



.. sii»LQc sv; snssi+s; 
dvudi; nn«Ln(? FN nADRSt BTt«Di»»sj 

IF 3SC=DC THEN JUMP UUT 2 TQ EXIT; % END LF RECORD 

sn*sv; Di»-Dv; 

FNO; 



00096800 
00096900 
00097000 



OSlsCHR))j 
EX IT I 

END STREAM PROOFDURE STir.K; 



00097100 
00097200 
Q 0097 3QQ 



00097400 
00097500 
00097600 



T< 



2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 f 

33 

■—i 

34 

35 4 

36 

37 

38 \ 

39 

40 

41 I 

42 

43 

44 1 

46 

46 

«i 

4« 
49 

50 % 
51 
52 
53 % 



i 
i 

i 



55 

56' 

JJ 



n 

2 
3 
4 
5 
6 
7 



%*************•*******•***********«*****•*******************************■ 00097610 
BOOLEAN PROCEDURE F I XERKQRC SADKS^ LAUHS ) ; 00097612 

VALUE SA PRSfEADRS; RE AL S A DRS^I^APRaJ QjQMZiUJi- 



BEGIN LABEL DUMMYJ 

BOOLEAN STREAM PROCEDURE rXERRQRCSAiiHS^EADRS ) ; VALUE SA0RS*EADRS; 

% 3ADRS IS STARTING ADDRESS OF USERS INPUT RECORD __^_^ 



00097614 
00097615 



% EAORS IS ADDRESS OF END OF USE?iS INPUT 
% ROUTINE CHECKS SYNTAX OF "FIX" REwUeSTS 
BEGI N LOCAL SV>D; LAt^EL FXIX; 



00097618 

00097620 

-0X10-81622 



snwSADRSi tally»«i; 

20(IF SC LSS "O" THEN Slt-SI^l ELSE 
IF TO GGLF TH F N fin EXI T ; % N il DIGITS 



JUMP OUT)i % SCAN TO DIGIT 



00097624 
00097626 
0009762a 



10 

11 

12 



8CIF SC LSS "0" THEN JUMP QUT'IF oC GTR "9" THEN JUMP QUT; 
20(IF SC"" " THEN SI«*SI+1 ELSE JUMP OUT); < SCAN TO CHR. 
IF TOGGLE THE N G Q TO Ex IF; * £MPlY F IEL D 



SI{=SI*l?;00097630 

00097632 

0097634 



13 
14 

il5 



Dit»L0c o; Dn«oi+7; ds»»chR; % save 

IF SC»0 THEN GO TO EXlTl X NO STRING 
IF SC » LEFTARRQW THEN 



DELIMITER 



00097636 

00097636 
QQ097Aao 



16 
17 
18 
19 
?.0 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



BEGIN 

SVJsSi; SUbLQC SV; SII = S1+5' UI:sLDC EADHib; 

I F 3SC = DC THEN X LEFT ARKO^^ R£.PL ACEMEnT 



IJI t=Dl4b* 



BEGIN TALLYl«0i GO 
end; X IF LEFTARROW 
63(IF SC»LEFTARROW THEN % 



00097642 
00097644 
00097646 



EXlTi ENU ELSE Si»«SV; 
CHECK FUR END OF HECQRp 



00097648 
00097650 
00097652 



BEGIN 

sv«=si; si;=LOC sv; si!=si+5; oii*loc eadnsi dijsdi+s; 

IF 3SC=DC THEN JUMP OUT TO EXH ELSE Sl:=6V; 



00097654 
00097656 

0Q0976 58 



end; 

IF SC NEQ 
IF TOGGLE 



THEN Sn«Sl+l 
THEN GO EXiTj % 



ELSE JUMP OUT); 
MISSING 2ND DELIMITER 



00097660 
00097662 
00097664 



tallyi'o; 

EXlTl 

f xerror«>tal l y; 



00097666 
00097668 
00097670 



31 
32 
33 
34 
3S 



END STREAM PROCEDURE FXERRQR; 
FIXERRORI»FXERR0R(SADRS»EADRS)i 
END PROCEDURE FTXFftRnR; 



00097672 
00097674 
000 976 7 6 



i-'it: 1 MM wuMwiii - — I « n i- nniMn r w m v r f u I w 

X**** ********************* *****ik*** *********** ilr************ir************00097700 

PROCEDURE SCANNERCSTRTADRS' A*LCW*EN0ADRS); VALUE ST RT ADKS* END ADRS; 00097800 
X******************************************i»***********************»***jtoo09790o 
REAL STRTADRS,ENDADRS; boolean LCwi ARRAY ACO3; 00098000 



37 

38 
39 
40 
41 
42 
43 ~ 



REAL STR 
BEGIN 
% M AI N CAN DE SCA HN FR 



X RETURNS TYPE OF INPUT 

X = COMMENT C INPUT 

-I 1 - V ERB ( I N PUT 



IN ACBASE3.[3:3] - 
STARTS WITH QUOTE ) 
STA RTS W I TH A VER B ) 



00098000 
00098100 
Qn098?Qn 



00098300 

00098400 
00Q9a?)00 



45 

46 
47 
«8 
49 
50 
51 



X 2 « NUMBER ( INPUT STARTS WITH A NUMBER ) 

% 3 ■SPECIAL ( INPUT STARTS WITH A SPECIAL CHARACTER ) 

X 4 » SSMSG ( INPUT IS AN SS MESSAGE ) 



00098600 
00098700 
OQ098800 



X 5 « NULL INPUT 

X WHEN INPUT TYPE » 2 ( NUMBER ) 

X ACBASE-t-n « OCTAL NUMBER 



00098900 
00099000 
00099100 



X , At6ASE<t.2r« 

X » M0RE INFO'^WA 

X 1 « NO INFORMATI 



TIGN FOLLOWS NUMBER 

ON FOLLOWS NUMBER ( DELCTlON ) 



00099200 
0QO99300 
00099400 



52 
53 
54 

55 



X 3 " A "FIX" REQUEST 

X RETURNS NUMBER OF TOKENS IN STACK iN A [BASE J , C 33 « I 53 

X RETURNS NUMBER OF "VFRRS" FQUNIJ IN A [ B ASE 3 . C 16 » 15 ] 



00099500 
00099600 
000997QQ 



X FOR EACH VERB • 
X A tVERBLOCATION 3. [33*153 
J A CVERBLQCATIQN 3.[lail53 



NUMERIC CODE ASSOCIATED WITH VERB 
NUMBER OF PARAMETERS FOR THE VERB 



00099800 
00099900 

QQl 00000 



JS? 



* • 



>r 



REAL I* K# P, S» HS» TYPE* ^E«BS, PLUSURMINUS; 

BOOLEAN ERRFLG^PLUS; 

lARFL, NUi liSTARTCOMf LQOKFERPAHAM&>T[]ULONo/SN£AKlNfgENSFQf 



FlXCHECK#SETERROR*rlNlSH#EXlTi 

DEFINE ERRV ■ 3''0000000000000i6"&3£ ll46«23f I 

DEFINE SEQV « 3'^00006000Q000065"&3ri 14612 3 #; 



OOlOOlOO 
00100200 
001.00300 



00100400 
00100500 
00100600 



MS «■ 
P »« 

NULL! 



' S »» BASE * 1} X INITlALlZt STACK 
STRTADRS; % ADDKESS OF wORK[l]; 



IlNUItfc.3 



00100700 
00100800 
00100 900 



9 
10 
11 
12 
13 
14 
15 
IB 
17 
18 
19 



IF TYPESsSCAN(P*AtS3*'*Z'*#ENOAORS*SCANPTRCS-SBAS£3)»5 THEN % EOR 
BEGIN 
AtBASE] «s & 5C3U5I31; X NULL RECORD ____^ 



00101000 
OOlOllOO 
00101200 



GO TO exit; 

end; 

IF TYPE ' 2 then X INPUT STARTS ^^ITH Nt M p L H 



00101300 
00101400 
QQ101500. 



BEGIN % CHECK FOR OILETION (NUMBER FOLLOWED BY END OF RECORD) 00101600 
KI»P; AtS|a!S*lJ :• 00101700 

TF SCANfP»I.'>Z'*.FNnAr)RS.Sr^ANPTHrSySRASF]TgS a^n KaP THFN 1 fLSF Q;nnl0171Q 



20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31" 

32 

33 

34 

35 

36 

37" 

38 

39 



43 
44 
45 



AtBASE] Ja 2 & 2C3t45{3]; » OCTAL NUMBER CQDE AND STACK SIZE 

GO TO exit; 

end; % IF RECORD STARTS rtlTH UUMhEH 



00101800 
00101900 
00102000 



X,...,,. t... •«.#.......,....**..#. t.i.* ,.,...00102100 

IF TYPE»l THEN X ALPHANUMERIC TOKEN 00102200 
B E G I N : _ 00102300. 



STARTCOM? 

PLUSORMlNUStaO; 

IF YnUFTNDAVFRBCAESI^VERRTABLF.COJ/NUiMQFVt-TRbS) 



BEGIN 
MS t« 

VFRBS 



THKN X C^F VERB 



001C2400 
00102500 
00102600- 



s; X Save stack location of verb 

m VERBS ♦ 1; X INCRFMENT VERB COUNT 



00102700 
00102800 
00102900. 



IF AtS3.[33ll53aVSSMSG THEh % SS MESSAGE 00103000 

BEGIN 00103100 

IF VERBS KFQ 1 THFN GO TO SfTfHRQH; * MUST BF FIRST VfRB 0Q103?0Q 



IF SCAN(P#AESi«S+13,"9*'#ENDAOHS,$CANPTRCS^SbASE]) GTR 2 

GD TO seterhor; 

STICK(P#L#ENDADRS); X transfer message to array "L" 



A[BASE] J= & aC3J45sj]; X CODt. FOR SciMSG 

GO TO exit; 

end; X IF SS MESSAGE 



THEN00103300 

00103310 
0010340 



IF BOOL£aN(ACS3,C8»11) THEN X "SPECIAL" VEfiB • STOP SCANNING 



OOI035OO 
00103600 
0Ql037Q J_ 



IF 



VERBS 
BFSTN 



NEC 1 THEN X "SPECIAL" VERBS NUT ALLOWED AFTER ";" 



AtS3«*VEReTABLECA[S],[9:V]]; 

end else go to finish; 
lookffrparams> 



Gu TO slterror; 



00103800 
00103900 

QQ1 Q 391 Q 



IF (SlwS+lJ SEQ PREVRCW THEN X OONT CLQBBER STACK 
BEGIN 
TQOLONG I ERRSW l« "TOOMUCK"; 



00103920 
00103930 
00104000 



00104100 
00104200 
0Q1043Q0 



47 
48 



49 
50 



53 



56 



msgptr t» 30; 
go to seterrdr; 
end ; 



IF TYPEIsSCANCP^Ai;S3*"9''*EN0ADRS*SCANPT«tS-38ASE3)«5 THEN 

60 TO FINISH; 

IF TYPE*3 then X PARAMETER IS SPECIAL CHARACTER 



00104400 
00104500 
QQ1046 QQ 



00104700 
00104710 
00104800 



BEGIN 

PLUSORMIMS is 0; 

IF ACS3 » ";" THEN X END OF LOGICAL REQUEST 



00104900 
00105000 
00105100 



sneakini 



BCGIN 00105200 

IF TYPEl^$CAN(P»ACS3*''Z*«*ENDAOK5rJiCANPTR(S"»SBAS£J)»5 THENOOI 05300 
■GO''vTQ..T.I.N.lS:H..;-.vV.. :-.v; ...... ■::.^.;;.. ; . 00105310 



• • 



10 

It 

12 
13 
14 
15 



16 
17 

le 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

iO 

31" 

32 

33 

34 

35 

36 

37' 

38 

39 



40 
41 
42 
43 
44 
45 
•6 
47 
48 
49 
SO 
Bl 
S2 
» 
S4 
55 
56 



IF TYPE-i THEN % ALPhANUMEKIC TOKEN FOLLOWS ";" 
BEGIN 

A[^^S3 tc ACMSi & Cb-MS-i)[ia;33;i5]; % pahamet^r 



MS Ja S; % NEXT VEHB LOCATION 

GO TO STARTCOMI 

FUnt % TF AIPHANUMERTC STWTMG Fni|,nwS Wjw 



00105400 
00105500 

CQ UNTQ 0t 5.6 Q 



IF TVPES3 THEN X SPECIAL CHAHACTEK FOLLOWS 

BEGIN 
IF ArSl=;^r" THEN (iU Tfi .ij^EAKlN/ i rtPnUNnANT. 



00105700 

Qoiosaoo 
nniosgnn 



IR ACS]*""" THEN GO TO FINISH; % COMMENT AFTER "^ 
IF ACS»]»« + « THEN GO TO GENSEfli X RESEQ SHORTHAND 
enh: it TF Special gharactfr follows 



00106000 
00106100 
001Q62Q0 



ft j w 



_l£. 



GO TO seterror; X nothing else allowed after 
end; % If parameter » ";" 

AES]«"-*^ TH EN PWUS0RM1NU S8 = 2 E L 3 E. , 



00106300 
00106400 

nni06snn 



IF AtSl»'**" THEN PLUS0RMINUSM3; 

GO LOOKFERPARaHS; X save all special CHARACTERS 

end; X IF PAR AM IS A SPECIAL CHARACTER 



00106600 
00106700 
QQlQ6flOQ 



IF TYPe=1 then X ALPHANUMEHic PARAMETER 

BEGIN 
PL U$0RMINUS; = 0^ 



00106850 
00106900 
00106950 



GO LOOKFERPARAMS; 
end; X IF ALPHANUMERIC PARAMETER 
TYPE * 2 t NUMERTC PAflAMFTER 



00107000 
00107050 
00lQ7l0fl- 



IF PLUSORMINUS GTR THEN % SIGNED NUMBER 

BEGIN 
A[S] :» ArS3 A PLUSQ.^MlNUS[i:46t2lJ % dIGNED NUMBER 



IF NOT PLUS THEN ACSI«S-1] J» A[S + U; PLUS »s FALSE; 

end; 

PLUSORMINUS ra fli 



00107150 

00107200 
00107250 

00107300 
00107350 
01074 00 



GO LQOKFE«PARAMS; 

end; X if a cande verb 

HATCH(ACS],[6M?3f'^rU 



00107450 
00107500 
001Q7550 



} QO TQ Fi XCHEG fS r 



GO TO seterror; X Alpha string not a verb ur a "fix" 

end; X if TOKEN IS ALPHANuMEljIC 

TYPEa3 THEN X TOKEN 13 A SPECIAL CHARACTER 



00107600 
00107650 
QQ1077QQ 



IF 



GENSEQJ 



BEGIN 
IF A[S]«' 
BEGIN 



00107750 
00107800 
01 07B 5Q 



■ + '• THEN * SEQUENCE REQUEST 



PLUSORMINUS «« 3; X NEXT f ARAM WILL BE INCREMENT 
MS t« s; X MARK STpkCK LOCATION OF "SEQ" VERB 
VERBS I* VERBS ^ Ij FLUS fg TRUE? 



00107900 
00107950 
00108000 



IF 
FIXCHECKt 



AtS] »s SEQV; i REPLACE 
GO LOOKFERPARAMS; 

end; X if; ♦•♦'♦ 



••+" WITH SEQUENCE VERB CODE 



00108050 
00V08100 
00106150 



ACS3*' 
BEGIN 



*" THEN » A «nX" RESUEST 



00108200 
00108250 
00108300 



00100350 
OOIO84OQ 
00108450 



IF TYPE:«SCANCP#ACS3*"9"*ENUaDRS,SCANPTHCS-S8ASE3 ) NEQ 2 THEN 00108500 
GO TO SETERROR^ 00108510 

IF (S»aS-H) GEO PREVRCW THEN GO TQ TDUlUNG; _^ 00106550 



AtS] It a; % 

AfBASIJ l» 2 

GO TO exit; 



DEWQTES A "FIX*' 

« it 31 45133; X "FIX** 



CODE AND PARAMi COUNT 



end; X IF •♦FIX*' 
IF AIS]*";" THEN GO TO NULL; 
IF A[S3»"'"' THF^ % CUMMFNT 



00106600 
00106650 
00108700 



% INPUT STARTS WITH 



M^ M 



BEGIN 
ACBASE3 tc; 0; 

GO TO exit; 



00108750 
00108800 
00108650 



00106900 
00108950 
00109000 



16 



18 
19 



23 \ 

24 

26 

26 ( 

27 

28 

29 ( 

30 



34 
35 ( 
36 
37 



42 



44 I 
45 



50 



52 
S3 ( 



55 
56< 



# 



2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
M 
IS 
16 
17 
18 
19 
20 
21 
22 



Q 



23 

24 

2S 

26 

27 

2B 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

3S 



40 
41 
42 
43 ~ 



45 
46 
I 47 
48 
49 
50 
51 
52 

a 

54 
S5 
56 



end; 
setlrrqri 



?«! A T S ] ; it PLACr F SPgNtQUS TO K F . N IN 1 ST PARAM. PDSTTTniM 



AtMSJ l» ERRVi % CALL 
VERBS Ik verbs + Ij 
FRRriG t» TRUE,i 



ON E5IR0R ROUTINE 



0010V050 
00109100 



S »a MS + 2; % ADJUST FOR CORRECT PaRaMETLH COUNT 
end; % IF TOKEN IS A SPECIAL CHARACTER 

FIN ISH ? 



00109200 
00109250 
00109300. 



ACMS] l» AtMS] « CS-MS-ntl8l33M53; I PARAMETER COUNT 

ACBASE3 I* CS*BASE*1) & VErSSC 18 J 33 1 153 & 

RFAI fFRRFLfiyM7lZt7ti3 > If^l^Siili 



00109350 

00109400 

JlX)IQ9a50 



00109500 
00109550 
00109600 



E^XIJ« 00109650 

END PROCEDURE SCANNER; , 00109700 

%***il*****1'****^l*^k^^■k*1,1i**i,i,■t,*^,1,^,1,^,^ , ■t,^l^,*^,*^,^,^,^,^,^,1,^,^,^,^,^,^,i,t^,^,^,^,^,^,^,^,^,^,^^^,^,^,^,Qf^^Q(^J^^Q 

SOOttAN STREAM PROCEDURE GHECKBITCN,LST); VALUE N; 00109800 

BEGIN Sn«LST; SKIP SB* SKIP N SBi IF SB THEN TALLYIsU 00109900 

CHECK RITI«TALLY) END STRFAM PROf-EnbRE rNEf^kflTTJ QOl lOnnn 



i ' " ■ ■ -—■-' ■ ' ■ ■ r , , : . WWAVUWt^ 

REAL PROCEDURE ChANGEWHICH( A ) ; AKRAy A[03; 00200100 

^^^'^^ ^ 00200300 



REAL T* S# which; 

LABEL BADPARAM#GETYPE#iAOTYPE*BADWaRO*EXITJ 

boolfan src.qrj: 



IF T »* ACSREG»sBASE-A[BASE3J,FF ' THEN 
BEGIN WHICH 1= O; ACBASE3 <= "NOPARAM"; 
SRFG »a RASE; MSr,PTR t= \0} „_ 



GO EXIT 

End; 
s i» snwat 



INC(SREG); 
IF T = 1 THEN 
BEGI N 



MATCH<WHICHt»0«A£SREG3[6«6l423»"PASSWOR'') WHICH »*5 
ELSE MATCH(WHICH#''NAME •• ) WHICHt«6 
ELSE GO BADPARAMl _____^ 



GO exit; 

end; 

HATCH(AESRFGl.r6l4?1«"TyP'^ 



JLL 



BE6IN WHICH f U 
GETYPEI 

M A T C H ( A n NC { SRE G ) 3 . E 6 1 It 2 3 » " TO 



IF ACSREG3.C3»33 
BEGIN 

IF ACBASE*13 «« 



") INCCSREG3; 



NUMOFTYPES)) 
BEGIN 
BAQTYPEI 



NEQ THEN 
ABS(FlNDA><08Ut aCSR£G3»TYPETABL£[13> 



THEN 



End 



WHICH «* 
GO EXIT 



o; msgptr la 20; 



End else 
if acsreg3 
Begin 



n "t** THEN 



IF ACBASE + n IS ABS(FlNDAl.ETTElUACINCCSHEG)J* 

TYPETABL£tl]# NUMOFTYptSn 
a THEN GO BADTYPEJ 



END ELSE 
GO EXIT 

End; % 



GO baoparam; 

OF TYPE ANALYSIS 



00200300 
00200400 
Qn2Qaflin 



00200500 
00200600 
00200700- 



00200800 
00200900 
QOZQIOQO 



00201100 
00201200 
QQ2013QQ 



00201400 
00201500 
Q02Q160Q 



00202100 
00202200 
002Q230Q 



00202400 
00202500 
00202600 



00202700 
00202800 
00202900 



00201000 
00203100 
002Q320Q 



00203300 
00203400 
00203500 



00203600 
00203700 
00203800 



00203900 
00204000 
00204100 



00204200 
00204300 
00204400 



T<^ 



9 

10 

11 ' 

12 

13 

14 i 

15 

16 

17* 

18 

19 

20 i 

21 

22 

23 ' 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 \ 

36 

37 

38 { 

39 

40 

41 < 

42 

43 

44 4 

45 

46 

"! 

48 

49 

50 I 

51 

52 

S3 f 

54 

55 

56 I 

57 



• 
• 



h 

2 
3 



9 

10 

11 

12 

13 

14 

P6_ 

(16 



18 
19 
20 
21 
22 
23 
24 
25 
26 



26 
29 
30 



92 
33 

34 
35 
36 
37" 



42 
43 



49 
SO 



52 
S3 



55 
56 



IF ACSRE:G1.C3J3] ' THtN GO 
MATCH(ACSREG].[6»42]*"S0URCE 
BEfilN 



BADPARAK*; 



IF OBJ 
SRC »« 



THEN GO BADPARAM; 
true; INC(SREG); 



MATCHCA[SREG],t6M2]'"0BjECr 
BEGIN 
IF SRC THEN RQ RA RPARAm; 



OBJ «» true; inc(Sreg); 
end; 

IF F I NnAWnRnC ArSRFfil / rFs wrdtari fLI ^. 



BADWORD» 
BE GIN 



NUMOFRESWRDS) new THEN 



WHICHIsO; 

end; 

AC BASE] t> 



MSGPTR«»29; GO EXIT; 
ACSrEG1 .E6|A2i; % MUST RF F T 1 I- 



WHICH J= 2; 

MATCH(ACINC(SREG)].[6JA2]*"TYPE 
MA TCH C A [ SRFGI.ns I a? 1>"jnr.K ") 



NAME 



') GG GETYPt; 



BEGIN WHICH t« 4. 

INC(SRE6); 
-END ELSE WHICH »» 3; 



MATCHCAC.SREG].[6»42],"T0 ") INC(SREG); 
IF A[SREG].C3«3] = THEN GO BaDPARAM; 
If" FINDAWORD(A[SREG]# RESWRUTARLE L 1 J , 



IF 



NUMOFRESWROS) N£Q THEN GU BAOWORd; 
COMPARCAESREG], £61423, "FACTOfi ") OR 
COMPA R(A[SREG3.r6Ug3#"SF 'M THEN 
BEGIN INCCSREG); WHICH is 7; % CHANGING SAVE 



MATCH(A[SREG].C6I423'"T0 
AtBASE-mialF SRC THEN 1 El.SE 



IF ACSREQ3.C3I3] » THEN X NUMBER 
BEGIN AC8ASE+23 t^ AC5REG3; GO TO EXIT; 

End ELSE GO baoparam; 



FACTOR 
) INCCSREG); % OPTIONAL 
^^ "BJ THEN 2 ELSE 0; 



WORD 



End; % if "factor" 

IF CA[BASE + n««A[SREG].C6S4iJJ),C4iJ{6j 
BEGIN 



NEd 



If i« 



THEN * TOO LONG 



EXIH 



WHiCHtaO; 

end; 



mSgptri»42; go exit; 



IF WHICH NEO THEN 
IF T NEQ SREG - S THEN 
"EGIN WHICH l» 0; SHE.'; ;s 



MS6PTR 

End else 
Begin 



I 



5*T, 



10; 



IF WHICH NEQ 7 ANU (SRC OR OBj) THEN 

BEGIN 

A[SrEG]!=(IF 



BAOPARAMI 

WHICHI«0; 

end; 



SRC THEN "SQUBCE " ElSE "OBJECT ")& 6[3:45»3i; 



MS6iTR{»8; 



ENDi 

ERRSW »s A[SREG]; 
CHANGEWH ICH i» WHICHj 



COMMENT COMPILER CHICk; 

IF WHICH E«L I OR WHICH EQL 2 
JF CHECKBITff ACRA.SF* 1I»1 1 qtw 



THEN X caMPiLER Name specified 

1 f nESTRleTFnt AMQliA flES 1 THFM 



OOiJ04500 
002G451C 
Qflfii04'=il5- 



00204520 
00204525 

00204535 

00204540 
on2uaszis 



00204550 
00204555 
00204600 



00204700 
00204800 
00204900 



00205000 
00205100 
- Q Q 20 52.0iL. 
00205300 
00205400 

00205500- 
00205600 
00205700 
-00205BQQ_. 
00205900 
00206000 
00206^00 



00206200 
00206205 
00206910 



00206215 
OO2O622O 
00206225 



00206230 
00206235 
00206240 



00206245 
00206300 
00206310 



00206320 
00206330 
00206400 



00206500 

002Q6600 
00206700 



00206800 
00206900 
00206010 



00206920 
00206930 
00206940 



00206950 
00206960 
00206970 



00206980 
00207000 
00207100 



0020ril0 
00207U2 
QQ8Q7114 



1< 



7 

a 
9 
10 



17 
18 



20 ( 

21 
22 



26 ( 

27 
26 
29 { 

30 

31 

32 < 

33 

34 

35 { 

36 

37 

38 I 

39 

40 

-I 

42 

43 

44 % 

45 

46 

48 
49 

50 % 
51 
52 
S3 % 

J* 
65 

56 % 

57 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



22 
23 
24 
29 



26 
27 
28 



29 



31 
32 
33 

34 
35 
36 



37 
38 
39 

40 
41 
42 
43' 



BEGIN CHANGEWHICH :« O; MSGPTR 1=^9; END; 

tND OF changewhich; 

BOOLEAN PROCEDURE TIKECHK(LCW#A); iOOLEAN LCWI AHRAY AtO]l 

U .^ ^ Ju ^. ^ ^ JL. .A^ ^ ^'.^jL.^ ^ ^ ^'^'.iA^ ^ 'Jb ^ ^ ^ a ^ ^ .1. Ji. ^' ^ ^ ^ A. ^ -t Jk. ^ J. .1. ^ ^ 



00207116 
00207200 
0022<>a00- 



%**.*** *1l*:**il*1r-ti **'"********* ******** *;« *'*********«**■*>***'***.*** 



%*W*** ****** It******* Ik********* ******* ******* ******** 
COMMFNT CHECK USERS TIME PEBInO FROM 2a BIT STRING; 
BEGIN INTEGER T IMl, TIM2» SKP; BOOLEAN OKf LABEL E^IT; 

%***************i,***ii***iHH,******iH, 

BOOLEAN STREAM PROCEDURE Tl MCk ( STRG^ bKP^ TIM 1 ) ; VALUE STRGJ 

%********************************** 



***** 



00224500 

00224600 
00224 700 



00224800 

00224900 

,Q0225-Q.aiL 



00225100 




-.,,-,^*..., si«»L8c sk; DU»SKp; D5»*hos; 

EXIT! END STREAM PROCEDURE TIMCK; 
%********************************** 

REAL STREAM PROCEDURE NEXT IME(STRG» SKP» REM ) ; 

%**********•****«***********' ■ -■• ■ 



X************** ************** ****** 

BEGIN SI»>L0C STRg; S I»» S I *4; Q H= U U C STKb ; n s» 
oii»LOC nextimE) SiisLOC strq; SKIP Skp sb; % 

REM (IF SB THEN BEGIN SKiP SB J TALlY J sTALLY + i; 

PI er iiiUD ni)T«t w Irrt.tn liCvT ftnn u t t 



VAUUE J3TRG»SKP*HEM; 



= 4 CliH; ^EXTE N D 



00226300 
00226400 
Qn226')0n 



% POINT To NEXT BIT 

END 



00226600 
00226700 
0Q226.aJlQ- 



n SF JUMP flUTVl t riNp MPXT *'Q** BTT 

TALLYI»TALLY + SKP; NEXTI ME J =TAlLY ; 



00226900 
00227000 
.00227-100. 



END STREAM PROCEDURE NEXTJME; 
%*******•**********•••••• ********** 

PROCEDURE TIMEMSGCSTRTIME#FINTIME#0K); 

%**************************#******* 
VALUE STRTIME>FiNTIME^OK; INTEGEJ 3THT IHE> F INT IME; bOOLEAN QK j 

BEGIN 

%*****************************«***** 

STREAM PROCEDURE MSGKWORK); 

%***********♦********************** 

BEGIN Dn»WORK; 

DSt»49HT"S0RRY,Y0U ARE NOT SCHEDULED FQR TIME AT THIS HOUR"; 



00227200 
00227300 
0Q22 7JLgiL 



00227500 
00227600 
00227700 



00227800 
00227900 
00228000 



00228100 
00228200 
00226300 



46 

47 



•9 
M 

51 






S4 

55 



56 



END MSGi; 



%****************•************•***** 
STREAM PROCEDURE MSG2 (W URK^ ST rT IMe* K INT IMe ) j VALUE ST hT IME* F INT IMe; 



00228400 
00228500 
00228600 



' %******;*************'ll*******''**.***** 

BEGIN outwork; 

DSt«33LIT»Y0UR NEXT SCHEOULEO TIME IS FROM 



OG228700 
OO22S80O 
00228900 



SlisLQC 
iJIIsLOC 
E ND MS G 2; . 



strtime; 
FIntimE; 



DSt = 4 
DSj=4 



dec; 
dec; 



DSJ=4 Lir 



TO 



002«i9000 
00229100 
00229200 



%**************** ****** * * * * t * * • * * * * * 

STREAM PROCEDUHEMSSSCWORK); 

■1L*:*.** ****** ***.*,:* ******** *.*.*♦'* * ***.* * 



00229300 
00229400 
00229500 



GIN di«»work; 

DSi»40LIT"PLEASE CALL BACK AT YQUK SCHEDULED TlML,"; 
n u c /< 1 1 



END MS G 3; 



%*********************************** 

STREAM PROCEDURE MSG4( W0RK*FINTIME ); VALUE FINTIMEJ 
%•********************************* 



00229600 
00229700 
00229800 



00229900 
00230000 
00230100 



>r 

1 

2 
3 
4 
5 



I 
8 
9 
10 
11 
12 
13 
14 
«6 



.6 

17 



e 

(J 
o 
Q 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 
39 

40 
41 
42 



«3 



46 
46 
47 
48 
49 
50 
B1 
52 
M 
54 
55 
56 



BEGIN DIIsWORk; 

DSl=42LIT»Y0U ARE SCHEDULED TO USL THE SYSTEM UNfiL 

ait=LQC FINTime; dS!=4 n^r.; ^ 



END MSG4; 

X***************************** ****** 
IF OK THEN 



00230200 
00230300 
OQ23Q/>On 



BEGIN MSG4CwORK,FINTImE); TwXOU TC lL* WORkLO J ^ 46^2 ) # END ELi>E 
BEGIN MSGl(wORK); TWXOUT (LU* WORK CO ] » 49^ 23 T 
MSfi ? CW nRK>STRTTMF,riNTTMFU T WXOUT fi L» ^iIRK r n J . as . ?)! 
MSG3(MQRK)i TMyDliTf t I . MHRk r n 1 . Zia> o w tMM 



00230500 
00230600 
Qn23Q7nfi 



MSG3(W0RK); TWX0UT(LL*WaRKC03*40*2)i ENO; 

END timemsg; 

X*******************»***,nnn>* ******* 



0C230800 

00230900 
00231000 



X******** ********** *******4*******^ 

IF REALCBOOLEAN(TIMELIMITS,C24»24J) EQV 

BOOLEAN(ReALCNOT FALSf).[24;24]J) EQL R£AL((nUT TALSf) % ALL ON 

OR TIMELlMlTS,t24l243 EQL THEN I NO BITS ON 

BEGIN TIMeCHK|»TRUE^ T IBERESTR ICT0 n I«ReAL CFALSe); qO EXIT' END^ 
M1I»01 TTM2l»SKP»«T IMrf 1 ■i/ai6nf>n • n.ssi * «iWDr»,T Ttup 



00231100 
00231200 
00231300 



00231400 
00231500 
00231600 



TiMlfO; TlM2l»SKP»gTIMECl)/2l6000 > 0«5; It CU 
OKt«TIMCK{TIMELIMITS*SKP*TlMl); TiMi:s(TlMl MO 



cuhrent Time 



wr\ J » I imv^FN V, I ji ntui ni I 3*oftp* I iM 1 ;# IAni;s[iiMl MUD 24) X lOO^ 
TlM2JaCNEXTlME(TlMEtIMIT3*SKP*TlM2»s24-SKP+TlM2) MOD 24)xl00; 
TlMEMS6(TIMi«TlM2/0K)/ % SEND APPROPRIATE MESSAGE 



0023U00 
00231800 
00231900 



TImERESTRICTBIT I» REAl(TrUE); NOTIFYbIT Js RtALtKALSE)i 

NOTIFYTIME I* o; timechk t» ok; 



00232000 
00232100 
002323Qn 



00232300 
00232400 
0Q23250Q 



EXIT! END PROCEDURE TlMECHKi ^ _„ 

PROCEDURE OUTPUTNUMBERSCLCW^A)/ BOOLEAN LCwi a«HAY aEOI; 00234700 

8E^GIN 00234900 



BEGIN 

% FORMATS SEQUENCE NUMBERS FOB SPECIAL DEVICES 

• •* " CLF A RS SCR^F N 



% 

% 
JL 



"1" 



QMK 

M*W 



HOMES CURSER ( CONRAC ONLY ) 
LINE ERASE ( CONRAC UNlY ) 
SHIFT OUT CHARACTFR 



00235000 
npg^'SlOO 



SHIFT IN CHARACTER 
SHIFT CONTROL CHARACTER 
LINE FFFn CCnNMAr HNI Y) 



00235200 
00235300 
00<i354Qn 



X "-" CARRIAGE RETURN 

% ARROW END OF TEXT CHARACTER 

RFAi, IiPTRfLSTtTNC; BOHI FAN IF? 



00235500 
00235600 



00235800 
00235900 
00236000 



'■ I ' ' UUfc JUUWU 

*«•••§••««•» ««*««t«|ir**,f«t*«i*t****t»*t««f»*t«*«>t*»«*t»**t**«*»*ff», 00236100 

REAL STREAM PROCEDURE AODRESSCWJi 00236200 



BEGIN SlfWl AnnRESSt»SIi EnOJ 002 

•••• • • 002 



STREAM PROCEDURE CONVERT ANDFoBM ( PT R» ^ ) J 'vALUL nJ 

« t « » ■ I ♦»»»»» « » » « » ». » « » » »» « »»>» O Ofc 3 6600 



* »«»»>«»♦»».« « « « » » « ♦ • « » * » » * * t * * * ^ * * * f » * * m 



36400 
00236500 



BEGIN LOCAL V*SV* 

X CONVERTS SEQUENCE NUMBER TO DECIMAL FORM AND BLANKS 

» LEADING ZEROS. UPnATFS PTR flT FTNTSw ______^_ 



Slt«LOC N; Dn»LOC v; DS!=8DEC; DI«=UI-8; 

sii«Loc v; oi;sptr; oi«=Di*5i uissuo 

8(IF S C«" " THFK SHaSI^l El SL nSlsCHR^; 



US«=7FlLLi 



00236700 
00236800 
0023 690 



sv««Di; sii»LOC sv; dii-ptr; ostswos; 

END STREAM PR8CEDURE COnVE«TAnUFORM; 

<» « «««l«»t >, t«t« » «« « «t««««««.«.«»««t««.».«.»...«^ t f f « ^ . f f j n 



00237000 
00237100 
0023720Q 



04237300 

0G237400 

» .>. i«>>t ,»,QQ<f375Q0 



STREAM PROCEDURE PU TCHARC PTR* N, CHAR ) ; VALUE N'CHAR; 002376 

* , ,..,......00237700 



BFGTN I nCAL SVj 



TRANSFERS "N" CHARACTERS FWQM -CHAR" AND UPDATES 
PTR AT FINISH 



002378 



SIULOC char; ntlaPfftf nitanUSi Pllanrt 



00237900 
(^0238000 
00236100 



3 

4 

M 

6 
7 

9 
10 

"< 
12 

13 

14 I 

15 

16 

18 

19 

20 I 

21 

22 

23 ^ 

24 

25 

26 ^ 

27 

28 

29 ^ 

30 

31 

-< 

33 

34 

35 I 
36 
37 

38 ^ 
39 
40 

41 I 
42 



46 
46 
47 ( 
48 
49 
50 ( 
51 
52 
53 { 
54 
55 
56 1 



h 

2 
3 

4 
S 
6 



9 
10 
11 
12 
13 
14 
15 



16 
17 



18 
19 



20 
21 
22 
23 
24 



2G 
26 



3 



27 
28 



29 
iO 



31 
32 



33 

34 
3S 
36 



37 
38 
39 
40 
41 
42 
«3" 



I 44 
45 
46 
47 
«8 



49 

50 
51 



52 

I S3 
>4 
S5 

i 



SII=Sl+8; Slt=Sl-Nj OS:=N ChH, 

svisDi; sit.LBc sv; oijsptr; ub 
FND STRF fl M PRnrrniiBp piitth a r; 



)i 



'WDS> 



lsti»seqlast; incisIncrement; ptruaddrEssTwcjhkToUT 

IF DEVrCE»BlDS THEN PUTCHAR(PTR*l'''»«); % ClEAR THE SCREEN 

IF (LF»«DEvrcE»CONRAC) TH EN PUT CH ARf PTR.i.H/.Hr, ^ HnMF thp r,| R.,pp 

BeJIJ ' ^ ^''^^' ''' '° i^^HilE QUT lo StQUENCE NUMBERS 

^yj^.^^^^^^^*^'"^"" ^^ ^ SHIFT GUT, SHU-T CClNT Rni, 



00238300 

no?^fl^oo 



pS?cSSJ???r°?"S^I?:!!;^i;:';!':^^''M * ^°«^^d sequence number 

PUTCHAR(PTR,2,Ci2)4(«x")C3fiI«2S6J3; * SHIFT CQNTPQL* SHIFT OUT 
IF I USS 10 THEN » FORM CARRlA aE RETURN aNU LINE FHP 



BEGIN 

putcharcptrm'"-"); » car«iage Return 

IF LF THEN Pl,iTCH/^R^ PT,-<;i."*"^> % lINF FLTp 



00238500 

00238600 

00238700 

00238800 
00238900 

ai)219.CLaQ.. 

00239100 
00239200 

0239 1^,0- 



end; 
END I loop; 

PUTCHAR(PT; R»t< l,E r TARRnw}l % TERMlNATr STRTNfi WtTu etx 
CHkSEQNMBrV^iIst; rLASr^Q Ub-NCE NUMBEH TO Se TRanImITTED 



00239^00 

00239500 

.002 39600 



00239700 

00239800 

-On2JL9.2j[KL 



TWX0UT(LL*waRKt0]#200»-l); % 
END PROC EDURE nUTPLTNUMBERS ; 



SENO SEQUENCE SfHlnG 



002«0000 

002^0100 
00240200 



******************* i,*i,*it*i,in,i,i,i,i,^,ti,-ki.**4.**^^^^^^*^^ 1 ~~ "v'^**^<;OQ 

« roRWARD decuratIons^Shme: ***** **** °°ll°°o° 



PROCEDURE 
PROCEDURE 
PRUCFDURE 



rememberthis(lcw); boouean lcw; foh^ako; 

.iM^rfrfo^*!'.;' SO^LEAN tCw; ARRAY AC03; FqrwAHO; 
■.. UNEC L EARC|eW^A)? RQDL E AN i nw j ahbaV aiqu rnMWAp p^ 



0090U300 
00900400 

Q09nnbOQ- 



00900600 

00900700 
0Q90QBnn 



^ 



^»r;R;;»;Rr;^;;;;;;;oR;;;;:;»;;;;:;;;^;;; 

B E G I N LABEL DUMMY; 0fl9 OiQiLL 

Icr^t^.nl.? f^I * "^^^^^ *'^° CONTAIN SPECIAL CHARACTERS 
BEGIN LOCAI .?y . Ov,DN#H.Ni LABEL LQQP>ExIt; 

DIJ«EADRS; OSI^LIT LEFTARROrt; % t;ND OF RECORU MARK 

sij»work; dij«stack; dnj^di; 

63(IF SC"" " THFN .S T ; = S I M ri Sp- JUMP UUT^; 



n 



00901015 
00901020 
0Q9Q1O2S 



IF TOGGLE THEN GO TO EXITJ 
IF SC^^H" THEN X check FOR 
BEGIN 



X BLANK record 

•♦ttlLLO" ^^ 



DUsLOC H; DSj = 5LIT"Hell0"; Di:=0i-5; 

IF 5Sc*dc Then else snssi-s; 

end; 






MAXCDIJaON; 0Slii8LrT''0 
LOOPt 

IF SC>" "^ THEN BEGIN SirgSIl'i; 

IF SC=",- THEN BEGIN Sl:=SI+i; GO^fO 
IF SC'LEFTaRHOW THEN % CHECK FOR EMD 



0U»DI-7; 
GO TO LOOP; end; 



00901030 

00901035 
00901f)ao 

00901045 
00901050 
00901055 

00901060 
0090106b 
00901070 



BEGIN 



LQDP; end; 

OK RECORU 



00901075 
0Q901080 
00901065 



sv«»si; siisLOC svi sii«si+5; 

OV I aDi; OII*LOC EAORS; 01 i *oi+5; 
IF aSCsDC THEN JUMP OUT TO EXIT; 



00901090 
00901095 
00901100 
00901105 
00901110 
00901115 



2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 ' 
15 
16 
17 ' 
18 
19 
20 I 
21 
22 
23 i 
24 
2S 
26 ' 

28 
29 { 

30 

31 

32 4 

33 

34 

35 % 

36 

37 

38 % 

39 

40 

41 I 

42 

43 

44 % 

46 

46 



47 
48 
49 



51 
52 
53 
54 
55 
56 
52 



a 




10 

11 

12 



si:=sv; DiJ=Dv; 
end; 



OSt=CHR; TAL LV:=i ; 

6(IF SC*" " THEN JUMP OUT; IF 

IF SC»LEFTARROW THEN 
BEGIN 



SC«"#" 



THEN JUMP Out; 



BEGIN 
SV ' 

DV 



i = Si; Sn = LOC SV; Si:=Sl+b; 
ijv:=Dl; DI»=LOC EADRS; Di:=UJ + b; 

IF 3sc=Dc thtn; 

sij«sv; Di:sDv; if toggle then jump ouii 
end; 

mr UO • TAi I Vt-TAI I V^l \ • 



h: 



end; 

DSt*CHR; TALLY;aiTALLY-^l)/ 

tally; sv:=si; sij=luc h; hi:=ii+7; 
=Dl+7; DNJ=Di; si:=sv; 



DIt=Dl + ''j L/il'-UA' vJ4.--»JVf 

TALLY8=N; TALLY} = TALLY-t-i; K 



Di: = Div; ns: = chR; « i^lH 



= 1ALlY); i; LK'D "i^iAx" LOOP 



00^01120 

00901125 
Q09&I13Q 

00901135 
00901140 
0090114'^ 

00901150 

00901160 

Q0901 1 7 .Q_ 

00901180 

00901190 

00 9012QQ 

00VG1210 
00V0122C 
UQ9U1230 



3 



13 

14 

t: 

::- 

20 
21 
22 
23 
24 
25 
26 

28 
29 

30 

31 " 
32 
33 



34 
35 
36 
37" 



38 



40 
41 
42 



44 
45 
4« 
47 
48 
49 
SO 
61 
52 
M 

55 
S6 



n. 



EXITI 

TALLYJ=N; GTPSWDJsTALLYi 
END ST REAM PROCEDURE GTPSWni 



i-tyu y_!_' ' V- w ■•' I nvufai.'vniu vi 1 r » »■■ u j' : 

Oe TPSWD;=GTPSWD( WORK* STACKS MAX >EADrt:i^ ; 
EwU PROCEDURE GETPSKnD; 



ARRAY AC03; 



PROCEDURE HITheRE CLCWj' A); HOOuLAN lCIn; „ ... , 

BEGIN 



STREAM PROCEDURE ANS(h)/ 

BEGIN DI J= w; 
nS ''= ?.U LIT "FnTl R U bF R 



cnOKf PLFASt>"; 



END ANS; 

STREAM PROCEDURE LNOC W* T*UC' LU >; VALUE T*Ll; 
- RFG IN . ____^^^____ 



LABEL AFT'EVt; 

DI J= w; 

S I i= LQC T; 5 1 



!" bl*7r 



"A" THEN OS :a 14 LIT "GOOD MORNING, 



IF SO 
ELSE 
B EGIN SI 19 LUC t; 



AFT J 
EVEl 



IF SC LSS "1" THEN 
BEGIN UPS; 
IF SC LSS "6" Then 



DS :s 16 LIT "GOOD AFTERNOON* 

ELSE 

DS »» 14 LIT '*GOOD EVElviNG*' " 



END 
ELSE 

B FGI N 



00901240 
00901250 
QQ9 126r}._.- 
00901270 
00901280 

oioaoooo -. 

oioooioo 

01000200 
.-04..0..0 03-0-0— . 

01000900 

oiouiooo 
muoiiiifl 

01001200 
01001300 

QIQOUOO 

OlOOlbOO 
01001600 

01 00 1 70 

01001800 
01001900 

QIQO2OQO _ 

01002100 
01002200 

1 0Q23QO _- 

01002400 
01002500 
01002600 
01002700 



upsi 

IF SC 

en d ; 



01002800 
Q1O029Q0 



•♦2" THEN GO AFT ELSE GO EVEi 



end; 
SI 1= uc; SI I 
OS := 15 chr; 



01003000 
01003100 
Q^003?00 



SI 



1; 



DS 
SI 
DS 



«« 16 Lit " YOU HAVE STATION "; 

»» Loc ul; DS la 2 dec; 

»« 4 LIT " 



01003300 
01003400 
01003500 



END OF LNO; 
STREAM PROCEDURE 
BEGIN 



"; 



PSWRD (Wj; 



LOCAL 
01 *» 



w; 



01003600 
01003700 
01003800 
01003900 
01004000 
01004100 



DSralTLlTMNO YOUR PASSWORQ' 



01004200 
01004300 
01004400 



IP 



2 

3 

4 

S 

6 

7 

8 

9 

10 

It 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

12 

23 

24 

25 

28 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

*3 

44 

iS 

46 

•7 

•8 

49 

50 

51 

52 

U 

>4 

55 

56 

57 



X VOID 

END PSwRD> 
STR EA M PRn CRDURF 



CH Hfi C W ); 



EGIN 
I ts 



w; 
-ta. 



L IT **En TLR r.HARtJE CQ UE-'^ i 



004500 
004600 



004600 
004900 

QO^OOO- 



ENO chrg; 

LABEL START»ERR»BAD*EXlT»SCHEO^CMa 
L AB EL W I NU I JP^PS W P »LUG» QN M: HARQ / N t; x rt} l 



E4*5TARTANfc.w; 
UC.Kr ^ 



005100 
005200 



INTE6ER i; 
REAL T*USR*FIL; 
B O OL EAN MT C Hf 



005400 
005500 
00S«S1Q 



CASE DOING OF 
BEGIN 

REGTN i- 



CASF Q 



^, » . , « »«« t , » t« t t « , ,» t »»«», « , ««, ! »«, »l««» « »««> « ««»«»»>, »,»,«, 



005600 
005700 
OQSflOO 



IF lOGGEOON THEN 

BEGIN 
IF SCHFDULINF 



TH EN SC IE RHC "HE LLO "«4n^i 



IF FILENAME NEQ 

IF TPCOUNT NEQ 

IF NOT NQSAVE T 



THEN 

UH FIlLNAME NEQ 5QUNCEFILE THEN 



005900 
006000 
006100 



006110 
006120 
OiI6_lJ.Q_ 



BEGIN 

NQS AVE* 'TRUE; Q0E«HC"N0 SAVE"* 46); 

mm : ^ I 



006140 
006150 



CLEAR(A[8ASE]*3); % IZHQ 
T:sGETPSWDCwORKCl3*AleASt 
JF T GTR C T HEN a t ijQ f SUM 



OUT 4 WORDb OF STACK 
+l]#3*^QRKtNDADRS); * "HELL 
ETHTNG AFTEH "HELI.U" 



0" 





INPUTO 

Q 



006170 
006200 

0Q63aa 



COMMENT PR0CEDU8E "QYE" D 
AE8ASE] GEO 50' DOES NOT 
A ERASE 3 GEQ iOQt 



OES NOT DISCONNECT WHEN 
PRINT MESSAGES WHEN 



006400 
006500 



BEGIN At 
BYE(LCW» 
G O TU PS 



bASE]< 

A[*]); 



=12^+TJ 

logoff(lc^«*ac*3 ); 



006700 
006800 
M69QQ- 



ENo; % 

ACBASEJ »« 
BYE(LCW» A[ 



IF PAR 
75} % 



ameters 

FLAG AS 

lQgQffcl 



TO HELLO 

HELLO 
CW^A[»3); 



007000 
007100 

07200 



lAM S« VHEL 
WANT t* WAI 

end; % IF h 



lOTOT l» ETI^E 
IF SCHEOULINE 
BEGIN 



Lo; 

TFOR : 



0^ 



PTIME ;- iNPUTCTR :* Qi 



007300 
007400 

U07500 



Then 



007600 
OU7700 
007600 



ACflASp] !=i2 
GO TO pswc; 
end; * IF l 






007900 
006000 

u a 1 c 



STARTJ IF NOT LOGGIKGOn THEn 

BEGIN 
STARTANEWt ANS(WqRK); 



008200 
008300 
008400 



TWXOUT 
LOGGIN 

end; 



(LL* WaRK[0]> '<m* IVQCKLFn 

GON := tkue; 



008500 
CO66C0 
008700 



DOING t» 
FiLESOK I 
WAITFOR « 



i; 



FAL 
VIN 



SE; 

Put; 



008800 
008900 
009000 



ACBASE]!s 
END OF C 
BEGIN * 



TEMP! 
ASE 
CASE 



*5; 
; % 



009100 
009200 
009300 



CLEAR(ACSASE3«3);X ZERO OUT 4 WOBOS OF STACK 

T»BGeTPSWO(#tlRKCl3*ACBASr+l3>3>WQRKENOAURS); LOGGI N6UNI sTRUE; 
IF T » THEK GO TO ERRi X NQ INPUT 



009310 
009400 
009500 




10 



,16 

[is' 

17 



19 
20 



24 
25 



26 
27 
28 



30 
31 
32 
33 
34 
35 
36 
37' 



38 



40 
41 
42 



♦3 



46 
47 
«8 
49 
SO 



52 



S4 
55 



IF YGUFlNDAVfi:Pki ( A [ H A .'iE + U ^ VF.RBT ABlH C J ' KuNQF VtRBS ) THlN 

BEGIN IF AtdASt + n.CF IMt^ VHtLLO IHttv 
IF ACRASFtU.CF = V HY E THE N 



BEGIN 
lAM i< 
IQTQT 



01009700 
QlO C9 flOG 



VBYE; USERCODE »a 
jM FTIME im PTIMg 



EGONE ";/ 



t» Qj 



DOING := ACBASeU 
GO EXIT 

FNQ % TF RYt^. 



01009900 
OlOlOOOO 

Qioioion 



WOfiP 



!= 0; 



ERHi 



ELSE 

LITOUTCFUNNY, 
M SGP TR »s ? 1{ 



01010200 
01010300 
OlOlO^QO 



'*1); X IF NOT HELLO 



GO TO startane*^; 
end; * if a verb 

AfHA.SFI i= Ua * Ti 



01010500 
01010600 
niQlQ7flO 



C UH NU INPUT ) 



IF T LSS 2 Then % no password 

BEGIN PSWRDCWORK); 

TwxnuTfM .woRtcrn], i7#i i; 



GIVEN YET 



O1OIO8OO 
01010900 
Oim i OQO 



PSWD 



IF aCBASE] 

blackout; 
FNn; 



LSS 126 then * NO HASSWORU GIVEN YET 



oioiuoo 

010U200 

niQiiano 



i» 

NEXTBLOCKJ 
LLOISKREAP 



{CaC8ASE + 1].C6J2i] + At 8aSE + 1 J . C2/ « 2l J ) MQ0 29) + i; 

t» USHBaSELI QIV USRQWSTZr3>CliaI MOn USROWSTZFVJ 



OIOIUOO 
01011500 
01011600 



01011700 
01011710 
OlOllfiOQ 



DOING »= 2; 

WANT 5= vdiskreau; 

TEMP >= 7; 



END CASE 1; % . 
BEGIN % CASE 2 , 
FOR T l« STEP 3 



01011900 
01012000 
Q10121QQ 



UNTIL 2t J 00 



MATCHCWQRKtT]* ACBASE + IJ .[6:^2] ) 

BEGIN 
USR t:2 WCRKLT^^13.^33;l5]j % RFLaTtV^ niSK AnnRFSS 



,01012200 

,01012300 

Q10l2a0n 



01012500 
01012600 
Q10127QQ 



USERL0C»8USRBASECUSR DIV USROWSlZEJ+CltaUSR MOD USROWSlZE)i 0l0l27l0 
LLDISKREAO »« USERLOC; 01012720 

WANT >« VnlSKREAP; ] 01012800 



DOING J= 
GO EXIT 

end; 



3; 



IF Cn»WORKCl3,tl8Jl53) GTR THEN GO TO NEXTBLOCK; XLINK 

W0RKC13 «s ••*******"; % IF (MOT MATCHED 

DOING l» 3J __^ : 



01012900 
01013000 
010131QQ 



END CASE 2; » 
BEGIN % CASE 3 
RESTRICTEDLANRUAGESt 



01013U0 
01013200 
01013300 



;V]0RKCa3 



M0VEC2*W0R0S>W0RKC9I#RE3TRICTEDVER8S); 
IF SCHEOULINE tHEN 
BEGIN 



,01013400 

,01013500 

01013600 



logonclcw^ai*]); 

end; 

USERCODElgWORKln; 



GO TO sched; 



01013700 
01013800 
101 3610 



ACBASE*63l*|»ORKt23J 

CHARGEl«WORKt33; 
TIMELiMlTSl»W0RKt7 3i 



J! SAVE PASSWORD 



01013820 
01013830 
01013900 



X VOID 



0PTI0NBITS»BW0RK[113; * USt^^S "SPECIAL" OPTIONS 
M0VE(2, WORDS, W0RkC4J,A[BASE+4J); % NAME FROM USERS FILE 
IF A[BASF3 GTR 125 THEN GO TO CASE<t; X HAVg PASSWORD 



OlOUOOO 
01014100 
01014110 



01014200 
01014210 
01014300 



DOING !• 4; 
WAITFQB >« VTNPUTl 



01014400 
01 14500 
O tOHfi OO 



>T 



10 

11 

12 



13 
14 
15 



16 
17 



19 
20 
21 
22 
23 
24 
2S 
2« 



27 



28 
29 



30 
31 
32 
33 



34 
35 



37 
38 
39 



40 
41 
(2 



45 
46 
47 

«e 



49 
50 



51 
52 
M 
54 

SS 

56 



END CAiiE 3; !* 

BEGIN % CASE * 

I F A C BASF3 LSS 1 ?6 TH fclN 



XiNUP.ASStjQRn tilVEN YTT 



AtBASE3»»l25+GETpS»O(W0«Ktil»AtBAS£+2 3,a,WORKeNOAORS); 
CASE4I LQGGINGQN l« FALSE! 
MATCHCiJ$FRrnnF»AraAar»i i.i6rA2-i v 



MATCH(A[BASE+6J#ACBASEt2]f C6?42J) % PASSWORD 
BEGIN 
MATCH(A[SRASE]^USERCUOEJ MTCH ; ;= TRUL; 



IF RESTARt AND NOT MTcH TNEN X SCRATCH ♦♦OLD" WRK FILES 

BEGIN 

USRlsAfSBASEll Tt»LL&l3t33l<tH73l FTL l«M AKFFNf *'1S**»LL)I Q 



REM0VEFILE(T*FIL*USR)' 

REM0VEFlLE(TrFIL.C6J36],USRj; 

RiM0VEFlLE (T #FILit "P'* [ ;2M2;<']^USR) , 



aEM0fEFlLEcT*riLr*t»'H2l42l63>USR); 

■• t^di •■ 

IF NOT RESTART OR RESTART AND MOT MTCH THEM % CHECK TiMF n 



IF NQT TIMECHKCLCW^A) THtN 

BEGIN wUHKC03»="*0 'S hORK [ 0] . C 12 I o ] »=l-EFTARROW/ 
TWXOUTCLL^WORKCOJO^'I); it DlScQNNtLCT THF, LINE 



IAMS3WANTssWAITF0R|«0> go to EXIT! 

end; 

I F CHARGE s THEN a; CHARGE CODE NEEDEfJ 



BEGIN IF A[BASeJ = lif THEN % ChARqE AlH£ADY INPUT 
BEGIN CHARGE «= A [ BASfe.+'3 J , t 6 J 42 ] ; 
GO TQ inGGON; „. 



CHARGi 



END % IF A[BASE3»127 
ELSE % ASK FOR IT 



CHRGCWORK); TWXGUTC LL* WGRK[ Q] * 1 8»N0CRlF ) ; 

waitfurjsvinput; 

DOING 8= b; 



GO exit; 

end; X ASKING FOB CHARGE 
END % TF CHARGE « 



BAD: 



elSe go tc loggon; 

end; X IF MATCHED 
USERCODE t= o; 



LlTOUT("BA0C0DE",n; 
M5GPTR !■ 2t| 
GO TQ STARTANEW; 



END CASEa; % , 

BEGIN X CASE 5 

Tt»GETPSWD(WCRKEi3^CHARGE^ 1^ ;»iGRKt.No ApHS ) ; 



LOGGON I 



IF T B THEN GO Ta CHAKg! « MUST INPUT SOMETHING 

logon<lcw#a[*3); 

lOTOT t» ETIME «g PTIME i • INPUTCTR i« O; 



CHARGEf Cl»53»=o; 



WAITFOR Js lAM (s VLISTNEWS; 
FlND(LL4IAM[33UlJ7]*0*''NEVvS 

DOING |g 6; 



'#"CANDE ".''SITE "), 



END CASESj I 

BEGIN * CASE 6 , , • • • • • * « • • • » « # t « * * # « • • 

IF EVENTSt 11 LEO THEN GO TO WINoyP; % 

iiriTCi/arAn i_ L'tir-KiTCrjii: 



•••*t**t**fO 



LLDISKREAD »s tVENTSt^]/ 

WANT !• vdiskread; 

DOING l« 7i 



• •*•.•.•:**«••••«**«***.«•.• f *».•«•.••*•• t #-«•*•**•**• ».0 

'■ '"■■•" ■■*■' ■ ~ m FILE 



END CASc.6# X ••*********«************«******«****«**«*(t****0 
BEGIN X QASE 7 * ••*«••••••§•*••«*•**•••*••«*»»•«»** ••,*«••••• »0 

TWX0UTCLL^>l0RKC03*r2#CRLF); ^ , 



014700 
014800 
O HVO Q 



015000 
015100 

Qi sp on 



015300 

015400 



015600 
015605 
0l56 1iL 



015615 
015620 
515625 



015630 
015635 
015700 



015800 
015900 
0160 00 



016100 
016200 
016300 



016400 
016500 

Qi66m}- 



016700 
016800 
016QQQ 



017000 
017100 

q;7 2oo 



• aA 



^i^S 



-o^ 



1 7 300 
017400 
017500 



r^^l> .)0^*^t 



1>. 



^^ 



017600 
017700 
017800 



t^ 



<^> — 



to j J 



017900 
018000 
018100 



018200 
018300 
018400 



018500 
018600 
018700 



018800 
018900 
019000 



019100 
019200 
019300 



019400 
019500 
Q1960 



019700 
019800 
019900 



j^ ^^S{'C<«^D^' 



ji 



h 



I 



/lINDUPJ IF CCLONG THEN CCCOMC LL*USJfe.HCOOE* 1 ; ; * ijET LONG CARRIAGE 

IF QUICKLOG THEN GU TO 6CH£U; i DOl\T PHIM GREETINGS 
WQ RKrO ] »« DAT &.J 



TIMEOFOAYC WORK CU*Tl«TlMECQNV(LOGaNTlME» TRUE)); 

TWX0UT(UI.#W0RK£0>18#1)1 

L NQ CW QRK CQl» T»A [B A SE t4 3yLL) ; 



01019910 
01019920 

o iQ ^iaaxifl. 



01020100 
01020200 
01020300 



TWX0UTCLL'W0HKt0J*52*a); 
SCHED: IF NOT RESTART THEN lIN£CUlAR( lCw* AC * ] ; * 
WRITE ASTER I SKt»TRUr; NQSTQP ? = F ALS£ ; 



01020^00 
01020500 
010^0600 



10 

11 

12 
13 
14 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



FILENAME l« Oi 
DOING l» WANT l» O; 
SOURCEFILE !« OBJECTFILE 



«a o; 



IAM := IP RESTART THEN 
GO EXIT 



ELbE VSETUPFILES/ 



01020700 
01020800 
01020900 



END CASE 7; * 



EXIT! 

END 



END ALL cases; 

OF HI There; 



JUL 



,*, »,«,« f,,* ,«,*,*.*, B f,,« * n.' 



J_£JL 



X**4r ********** Ik *********** 

PROCEDURE BREAK(LCW,A); 

%***••***•**•**********•* 



LABEL T; 



BEGIN 



************************% 

BOOLEAN LCW; ARRmY ACC3; 

****•***•*•**•***• *******^ 



01021000 
01021100 

f»ft.»>««t»it*»(>t» 01021200 

01021300 
01021400 
OlQglSOO 
02000000 



WRITEASTERISK >« TRUE/ 

IF R(ALLMCPmSG) = THEN lI NEC LE AR ( LCW * AC * ] ) EL^E 



END 



IAM t« 

break; 



c; 



%*************************************************% 
PROCEDURE WRU{LCW»A); BOOLEAN LCW; ARRAY At03; 
%****•*********♦************ * * nt * ******* ***** ***** % 



02000100 

Q 20Q Q2QQ- 

02000300 

02000350 

-OaOQQftOO 

02000500 

02000600 

020Q070C 

03000000 
03000100 
03Q002Q0 



28 
29 
30 
31 
32 
33 
34 
36 



BEGIN 



LABEL T; 



WRITEASTE Ki SK t= ■jR\jg i 



imtiatedwhilebusy la true; 

BREAKORwRUI»TRUE;* WANTsswAitFORisVLINECLEARJ 
IF REAL(ALLMCPMSG)gO TH£n lAMi*0 ELSE 



03000300 
03000350 

oaoooaQQ 



03000500 
03000600 
03000700 



37 
38 
39 



40 
41 
42 
♦3" 



45 
4« 
47 
48 



49 
SO 



51 
52 
53 
54 

55 
56 



MATCH(RUN2»"CANDL ") IANJ»0 tLSt 

want««waitfor«»vmcpmsg; 
WRU; 



03000800 

03000810 
03O Q O 9Q 



X*********************** ********** *****************«***********«***«*«*IO^OqOqqq 

procedure lineclearclcw^a); boolean low; array acoj; o'^oooico 

X ************************** *****f *********************************** ***%04000200 
BEGIN O^OOO^Ofi 



BEGIN 

LABEL exit; 

ir RUNNING THEM 



MAT CHC H U N 2^" CANQt. ♦') G O EXlTJ 



SUSYLlNE 

initiateowhilebusy 

SftVrnWHlLET f tl TR USY 



04000300 
04000400 
40Q Q 41 



t* False; 



restartneeded 
allmcpmsg 

DISCONNECTING 



Js FaLSE> 

t» False; 

I' FALSE. 



04000500 
04000600 
04000700 



04000800 
04000900 
40Q 1QQQ 



RESTART 
SEOMOOE 
HFLPTOfiGLF 



IS false; 
i« false; 
t» ' Q;. •■ • 



oataenabled 
breakorwru 
In qu iry }« fals e; 



S« FALSL> 

Is false; 

CONTINtlEHlTtaF^LSE; 



04001100 
04001200 
04001300 



04001400 
04001500 
04001600 



scwpREv j« PREvacw i» LLWQROs; baSe :• sbase; 

want »• WAITFOR I» WAITIN6SCW l« LLINFO la O; 

WHTIF RFAl fTHlNRSTnnUi QTR On GETSHMrTH T NfiT Unnf ( TW . Af *m 



04001700 
04001800 
04001900 



55 

56 ( 

5? 



I 2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 



I 23 
24 

25 
I 26 

28 

I 29 

30 

31 ~ 
f 32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
I 44 
45 
46 
47 
48 
49 
50 



51 
52 
S3 
54 



55 
56 



CLEAR(ALSBASE]*30); * FOW REPLACIT 

IF EQUATED THEN ENTERESPC -LL> -0* A t * ] ) ; % Giy/t BACK ESP DISK 

FQUATPD tg false; 



MSQPTR l« 18; 
EXlTl IAMl»o; 

END PRQCEDURF LlNFriEAP^ 



04002000 
04002010 
04002020- 



040Q2100 
04002200 
040Q230Q 



' ■ ^-^ ^ V0UU<i3OU 

05000100 



********************* **********^^, 
PROCEDURE INITIALI2ECTRANDBASE. 

%********************i.** **i,***-k***i.****i,-i,i,*i,i,t,i,^i,t,t,\.t,^,^^,i,i,^,^,^^,^,^^^,^,^^^,^^Q:^QQQ i,^'^ 

05000300 



BEGIN 
STREAM PROCEDURE USERSOATEC UDAT )l 



DI»=l,; DSI.23LIT"USEHS/CANDL FILE DATED 

sissDAt; os«s8Chr; dsi=lit"«-"; 



05000310 
- 50 00 .11^. 



END usersdatf; 



REAL USERFILEHEADERI 

CLEAR{CTRANDaASE£0 3*l5 3; 
CLEARtwnRKtn3>5on 



05000320 
05000325 
05000330 



* REMOVE 

I ANY SAHBAfiE. 



MSGFILELOC := EVENTS C 2 3 , C 20 : 28 3 ; 
TANKFILE ts ABb(£VENTSC3n; 
USERFILEhEADEK »= EVEN TS [ 2 J . C 5 M 5 J > 



05000350 
05000400 
QSOQQSQfl 



SYSTEMt«(EVENTS[2],t2!2])x(100); 
ROWINUSE »a I5i 
NOFILES l» FALSE I 



05000600 
05000700 
05000600 




BEGIN 



end; 

ENP 



DlSKIf<An(l*wUHKC*3»30MANKFlLE); 

MQVF{l6»wUR nS,wnRK [ i oj/ r T R AN n HASFrQm 

TANKS I ZE «» WORK 18 3; 

ROWINUSE »*W0RKC61*Cf; 

ROWCOUNT Is WORKt 63. FF; 

noTanks 15 falSe; 



05001200 
05001300 
Q5OQUQ0 



05001500 
05001600 
05001700 



iNlTlALlZLCThANDbA^K; 



05001750 
05001800 
SOQ1 9 Q 



-" ^ ■ ' - ■ - , r~t m * - T M I M n ■ ' w , ^^ n , ■ . ^ir f , , . , 

%****************** 1,1, 1,1,**i,i,i,i,m,ifi,1ttii,*.l,l,i,iHtt,i,i,4,i,iii' 

PROCEDURE oiskohu^k; 

^**»W***********»***^^»*»**1|05002?0Q 



rnucEDURt 0i:»KeMU^K; 

X *********** **»**»♦»»* in, * * » » » » » * » * * ♦ * * » * * ■******■ 

D ro T 11 



■ — ' — . — V i^ '* Y * 7.y V 

r***********************jQgoo2oOO 

05002100 



REAL 

BOO L EA N 



BEGIN 



xtradsk; 

TANKNQTPRESrNT; 



BEGIN 



IF NOFILES THEN X SeT UP TWE FILE ADDRESSES. 

tanknqtpresfnt ;g eventse33 llq o; 



05002300 
05002400 
05002500 



END 



initializectrandbase; 

ELSE TANKNOTPHESENT J» TRUE; 

IF CTRAN DBAS£[Rn»^INUSEJ NCQ F\/EKT^[1] THFk 

BEGIN % MUST REALLY BE A NEW CHUNK, 

RiWlNUS£.tft4«43 »« ROWINUSE >i; 
IF CTRANDBASErROWlNUSEJ NEQ THEN 



05002700 
05002800 
05002900 



05003000 
05003100 
O5OQ32O0 



BEGIN 



05003300 
0500 3400 
05003500 



XTRADSK JB CTWANDBASECK0WINUSE3; 
ROWCOUNT «= ROWCOUNT ■!/ 



end; 



05003600 
05003700 
05003600 



CTRANDBASt[R0WlNUSE3 »* EVENTSCU; 
ROWCOUNT \' RQWCOUNr * H 



05003900 
05004000 
05004100 



i 



3 

4 
54 

6 
7 
84 

9 

10 

11 < 

12 

13 

14 4 

15 

16 

17 I 

18 

19 

20 f 

21 

22 

23 f 

24 

25 

26 \ 

27 

28 

29 f 

30 

31 

32 I 

33 

34 

35 % 

36 

37 

38 \ 

39 

40 

41 I 

42 

43 

44 V 

46 

46 



47 

48 

49 

50 

51 

52 

63 ' 

54 

65 

56 

57 



11 



>T 



2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
13 
20 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31' 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



4S 
46 
47 
48 



49 
50 



52 
» 

55 



^_ 



I 



END 



IF TANKNGTPNEbElNl THEN D I bKWA I T ( 1 , WQhK [ * ] * 30, T ANKF ILE. ) ^ 
WCRKC6] := ROWINUSE & KOl^CUUNT [ie»33:15]; 

MQVFC16»HURni>>CTRANDbAbEi:Q3, y^ ORKLl V 3 )i , , , 

TANKSIZE«»WORKt83; DISKWAIT CO^WORKC * J* 30# TANKFILE ) ; 

REMEKBERIN6 NEW CHUNK/ 

OOGSARDUNOlaOOGSAROuNO OR RQWCOUNT GTR 131 

Tr- WTQAnCW *^Tq ft TUr-Ni * /'TiJr- tT n r. i ■ Lr 



IF XTRAOSK GTR THEN » GIVE IT BACK. 
FORGETUSERDlSK(XTRAD&K*TANtNi)IZ£);* 
lAM t= c; 



END OF NEW DISK CHUNK; 

X*******ik**«***** * * * ************************* 

PROCEDURE DISCONNECT{LCW»A)j BOQI^EAn lCWJ ARRAY 



0500420C 
0500430c 
Q50Q4<tQn 
03004500 
05004600 
05004700 
05004600 
05004900 
05005000 



X******* 



05005200 

********** *♦***♦ **********3[Q^0000C0 

m5CDNNECT(LtW*A)i BOQ^fcANLCWJ ARRAY AC03J O6QOOIOO 

****************************** ****************************^HHHt*tJQ^QQ0200 

RFfilNI nAnnnnnn 



BEGIN 



□ C U i IN 

BOOLEAN STREAM PROCEDURE SPEC I AlC N, W* T ) ; VALUE N»Tj 



BEGIN 



06000300 
060U0400 



SI «• LOC tj SI I* SI + U 01 Js WJ 
IF N SC « DC THEN TAi.L< t» 11 



SPECIAL »» TALLY> 

END special; 

IF NOT BOULFAN (HOlNG) THEN 



06000500 
06000600 
Q6Q QQ 70Q 



BEGIN 



WHILE R<THIn&STQDO) GTK OQ GETSqmeThI NGTQOOC LCW* AC * 3 )1 
DTSCQNNFCTTmG Is RfOQINR !s fl ? 



end; 



BREAKBRWRU :s TRUEl 



IF DOGLICENSE THEN % TAnK Fl^fc CLEAN UP U PRqGRESS 



BEGIN 

DOGHOUSE £LL 3 «»0l 



06000800 

06000900 

06001000,- 

06001100 

06001200 

0600 1 300 
06001400 
06001500 
06001510 



J£ 



lAM js vdisconnect; 

END! 

REASON ' VTEACHt.R THFN 



06001520 
06001530 
06001540 



BEGIN 



IF SPEClAL(3»WQ«KCl3#«BYE--^-«) THEN 
DEVICE Is REALCNOT FALSE)! 
IF REASON s VMfiPMSG THEM 



06001550 
06001560 
06Q01600 



06001700 
06001800 
06001900 



SREG»=BASt*LlBMSGCTR; 
MCPMSfifLC.W>Ar*1 )} 



lAM l» VOISCONNECTl 
END MCPMSGl 
TF fWATTFORtuRFAl CNQTCFALSmB nrvirfr 



06002000 
06002100 

06002200 



BEGIN 



AND REAL(ALLMCPNSG)sO 
OR SCHEDULINE 

THFN ^.„^^„__™_____ 



) 



06002300 
06002400 



BEGIN 
BEGIN 



LINECLEaR(LCW,AC*3); DISCONNECTING «« FALSEI 
IF USERrOOE NFQ THEN 



06002550 
06002600 
06002650 
06002700 
06002800 
Q60029QO 



IF NOT SCHEDULINE THEN 



A[BASE] I' 1501 
END BYEING DFFl 

L0GQFF(LCW«A[*3); 



8YE(tCw#At*]j; X SCRATCH WORK FILES 



06002910 
06002920 
06Q02930 



END LOGGING OFF; 

LCW«*FALSE; CLEAR(A[T8ASE3»SBASE-rbASE-l); 
l AM tn 0; nlSCONNECTEJCLL?; 



06002940 

06002950 
0600296Q 



06002970 
06003000 
06003100 



X************* 



END IF DO»E WITH THIS LINEl 06003200 

END OISCOMNECTI 06003300 

********»*****»»***********************»****»**»**li»*»»<,*%0yOOD0OQ 



T< 



sn 



m # 



>r 



1 

I 2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 

30 
31 " 
f 32 
33 
34 

I JS 
36 

37" 
I 38 

39 

40 
I 41 

42 

43 ~ 
) 44 

45 

46 
I »7 

48 

49 
I 50 

51 

52 

53 

>4 

55 

56 



PROCEDURE INPUTDATA (LCW,A); 

BQnLFAN lew? ARRAY AfOJ ; 



LABEL T; 



BEGIN 



0700C100 
******** *******5i07000200 

n7QU0300 



WECANUSFOATa 18 no QOfiSARQLJNn! 



NaOATAREQUESlEDJ= TRUt > 

DATAOFFSETT J= EVENTS CUi 

D ATABQRP S ;»= EvEi\TS t23; 

OATAOISKLOC J« EVEMS t33 & ROWINUSE C36l44t43) 

noOatai»(Oatawords leq - -" - - -■ 

I AM r« WANT taOJ 



oroooftoo 

07000^50 

07Q0 Q5Xm.. 

07000600 

07000700 

-QlMOiOa. 



OR dataoffsett GEQ 29); 



END KLUDGE INHUTDaTa; 



07000900 
O/OOiOOO 
Q70Q 11QQ 



• NU I^LUDGt. INr"UTUATAi 07001400 

X**********************************************************************;jQ7yQj5QQ 

Bull DAnATA^WFKlTl 07001600 



PROCEDURE buildadataevent; 



DEFINE 



( * * * * ****** * « * * * ********Si0700l700 

07001800 



I ****** *«*♦** * * * **************** *« ***** * * ******* 

BEGIN 

lNPuTLLg[10ie3«, iNPuTCHARgiaSllSj^, INPUTQMAFiKgi: 1 t ni(( ; 070 01900 

07002000 
07002010 



LABEL exit; 
REAL count; 

BOOLEAN STREAM PROCEDURE FLAGeiT(h)J 



BEGIN 



END 



SII«W; IF 
FLAGRTT; 



SB THEN TALLYlaj; FLAGS TF JaTALLY; 



' • " >■■ 1 V. "WO 1 I t . : . . : 

STREAM PROCEDURE INCOMPLETEMSGC WORK ) ; 

BEGIN DU-WQRK; DS» = 27Ln"YoUR 8£QULi»T IS INCcMpLEU, 
IF FLAfiBlTCTTYlNPUTC DAT An KF R ETTI) TH E,i \ 



07002200 
07002300 

07Qo?ana 



end; 



BEGI N 



BEGIN LLJsO; REASUNJS13; GO EXIT END; 

IF dogsaround Then * bad news. 



07002A10 

07002420 

-07 0025 00, 



eventreasun 

EVENTLL 

IF LL GTR Q 



END dogsabgund; 

BEGIN 
LL t* (ERRSW I* 



!= REASON '= VDUGCATChtn; 
''= LL «s DOGSLaUSLi 
THE N fiP £xn? 



07002600 
07002700 
07QQ3Hnfl 



070U2900 
07003000 
07Q0 3>QQ 



TTYINPUTi:DATA0FFSETT3)iINPUTLL; 



07003200 
07003300 



EVENTS[3J«= DaTauISKLCC; 07003500 

EVENTS[2 3 '.- REASON !*( CWORkCq] :=fHRi.W.lNPUTCHAR)*7),[4oJ5J;o7 0036 00 

EV£NTS[l]>s DaTaQFFSETT{s UaTaOFFSLTT •» l; 07003700 

MBVE (REASON^ WORDS* TTYINPUTCDATAOFFsETT J# WORKtU)/ 07003800 
WORKAORS ta ADORESSCWORK[13); 07003820 

COUNT is (WQBKC03"l?,[39»93; __^ 07003B40 



COUNT is (WQBKC03"l?,[39»93; ■__^^___ 07003B40 

W0HKENDADRS:s(W0RKADHb+C0UNT,[40J5J)«.C0UNT[30«4i>J33i 07 00 3850 
NODaTA«=(DATAGFFSeTT := OATaOFFSEIT + REASON) GEQ 29; 07003900 
IF (OATAWURDSl« DATAWGRDS " REASON ' l) LSS 1 THEN 070U4000 



NiOATA iw true; 

EvENTSC03»Ct8il53t« X 
(ERRSW & ( REASON t-VlNPUT''£RRSW,lNPUT0MARK)C3l41t 73 ) 

r ^ J 1 r, 1 • 



07004100 
07004200 
07004300 



.C3I153; 07004400 

IF REASON = VTEACHeR AND CONl INUEtilT THEN % NO OISKReAD 07004410 
BEGIN INCOMPLElEMSGCwUhK); TWXLUTC LL« WQHKt 3 #27* 1 ) ; 0700 4420 



LLi«c; Reason ;• i3v end; % if waiting 



IF REASON'VTEACHER THEN 



IF SEgMODE AND NOT OISCONNECTING THEN REAS0N|»VINPUT; 

V, T.„rc Tur., nr-rT,., ^L'^O; REASON5=13; END; 



IF LL GTR MAXLlNES THEN BEGIN 
END NO DOGS ARQuND; 
EXITS END OF BUlLDINCi A DATA EVENT; 



% * * ************************************************************ 

PROCEDURE RESTARTITCLCW^A); BOOLEAN LCW; ARRAY At03i 
_t 8!*t************************************************************ 



07004430 
07004440 
07004450 
07004800 
07004900 
07005000 
09000000 
09000100 
09000200 



h 



13 



16 
17 
18 



19 
20 



22 
23 
2* 
25 
26 
27 
28 
29 



32 
33 
34 
35 
36 
37 ~ 



38 



«0 



42 



♦5 
t6 
«7 
t8 



«9 
SO 



52 
M 
54 
55 
56 



BEGIN 
REAL T; 
UABEL BAD/FlNDr.HKPT>HAKES[JRF>CASLfl.CASI-9*ryi-r I 



BOOLEAN STREAM PROGEOuRt 

BEGIN LOCAL SVJ LABEt 

- 30fSVt8Sn TF SR THEN 



findfuagcseqmenT); 
exit; sii^segmentj 



BEGIN TALLYtsi; F INDFL AG »sT ALLY ; JUMP QuT TO EXIT; 

sii«sv; sisssi+e); 

EXIT? FND STRFAM PRnCFDURE FINPFLA G/ 



END, 



STREAM PROCEDURE FLAGmESSaGEC WORK^F I LNAM*USERCDU£.*DISkADOR£SS ); 
VALUE FILNAM*USERC80E*DlSKA0ORESSi 
BEGIN „_ . ^ 



DiJsWORKi DS5ai4LIT"FLAG Bir:FlLt "i 

Si:sLOC FILNAM; 2(SH = SI + 1; dS»-^chr; DS{ = Ln 

DS»«17LIT" AT DISK ADDRESS "; DS;=^Hr>F:c; 



'/"); Dn*DI-U 



It"; 



osj«i6LiT" File discarded 

END STREAM PROCEDURE FlAGMESSAGE; 

stream prqcfdurf nwfww 



BEGIN 

Di «s w; 

DSt«12 LTT 



End ok; 
stream procedure 

REQIN 



♦'WDRKIFTtP 



SPEC(WRK#SEQ*FIX); VAlUE SEQ'FIX; 



DIJsWrK; DStsiiO LIT "INPUT RtSTORtD THRU 
FIXCDSis? LIT "Fix AT "); 

sn»Lnc seq; — Fixispi; u^jga dec; 

Dii»Fix; ds»s7 fill; ui:=fix; suffix; 

8CIF SC«" " THEN Sn»SI + l ELSE OSjscHR); 
DSlalfi LIT '* »i 



END stream; 
CASE DOING OF 
BEGIN 



BEGIN % CASE 

IF BOOLEANtEVENTSClJ.CgJU) 
. BEG I N 



THEN 



SCHEDULINE J= true; 
CHARGE:=EVEN?St3]; 
USERCCCE i' EVENTS[1] 



C6U2]; 



09000300 
09000400 
09000-^00 



09000502 
09000504 
09000506. 



09000508 
09000510 
09QQ0512 



09000514 
09000516 
09000518 



09000520 
09000522 
09000524 



09000526 
09000528 
0900060X1. 



090U0700 
09000800 

090oo.sLaa 



09001000 
09001010 

00001020- 



09001030 
09001040 
0900 1 050 



09001060 
09001070 
Q9QQ10flO 



09001090 
09001100 
09001200. 



09001300 
09001310 
09O0U20 . 



SCHEONAME 
DEVICE 

END 



;- EVENTSC2J. [61423; 

»s teletype; 



09001322 
09001323 
09001324 



% NAME OF SCHEDULE FILE 



ELSE 

IF notanks then 

lAM <g VHELLO 



ELSE DEVICE != EVENTS12J; 

IF EVENT5[l3.[i:23=l THEN ^SCHEDULE LOG ON (NOT RESTART) 
IAMt=VHELLU 



09001325 
09001326 
09001328 



09001330 
090C1340 
09001350 



ELSE 
BEGIN 
FILESOK 



09001 360 
09001400 
Q9001S00 



ts FALSE; BASE «= SBAbE; 



AC8ASE3S»EVENTSCn,t6«42]; 
RESTART |a true; 

Temp t« doing m i; 



% SAVE usercode 



09001600 
09001700 
09001800 



want i* vhello; 
end; 

END CASE o; 



09001900 
09002000 
09002100 



BEGIN % CASE I GOT HIM LUGGED iN 
COMMENT CHECK TIME RESTRICTIONS (NOT CHECKED IN HItNERE ON RESTART); 
IF R{B( TIMELIMITS.rg4»243) FQV R(H(NQT FALSg } . C g4lg43 1 r FQL 



09002200 
09002300 
09002400 



09002500 
09002510 
09QQ2SH 



li 



10 



18 

19 



23 I 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

3B { 

39 

40 

41 4 

42 



48 
49 
50 ( 



52 



55 
56 






10 

11 

12 
'3 
14 

IS 
16 

) " 

IB 

19 
) 20 

21 

22 
I 23 

24 

2S 
I 26 

27 

28 
I 29 

30 

31 ~ 
I 32 

34 
35 
36 

37"" 

38 

39 

40 

41 

42 

»3~ 



45 
46 
47 
•8 



49 
50 



51 
S2 
» 

54 



55 
56 



W^^ 



R(NOT FALSE) OR TI VfL IM I Ti . [ ^« » 24 J EUL THEN ELat 
TIMERESTRICTBIT »= REAL(TKUE); 
RESTART >* false; 



IF USERCODE NEC AC BASE 3 THEN 
BEGIN 
TAM la vSFTiiPrn , fs; 



09002512 
09002513 
0900<?600 



DOING := TEHP 
GO EXIT 

t-Np; 



«» c. 



09002700 

09002600 
09002900 



IF SChEOULlNE THEN 

XTEMPORARY UNTIL we kNGW WHAT TO DO 
G0rRRf*'P*L*Q*Pn,40r; 



09003000 
09003100 
09003200- 



AtTBASE+lO] »» TEN8; 

T t* MAKEFN("1P"#LL)' 
FTNn(LLSIAM[.^3»4n73>0,T>USKHr.nnE>LJSrwrnnp)i 



09003210 
09003220 
Q0QQ3g^fi 



DOING t* 21 
WAITFOR tm I AM) 
ENr> rASF t i 



09003300 
09003400 
09QU3SQn 



BEGIN % CASE 2 

IF EVENTStlJ NEQ 
BEGIN 



09003600 
09003700 
09003600- 



7 THEN 



BADt 

FILENAME Is. DOING J» 
lAM la VSfTUPFTLFSI 



09003900 
09004000 
Q9Q04100 



WAITFOR la Of 



GO EXIT 

End; 

ATRASEI ts (I^RKTBl AnKi=FvFMT^( :zt 1)-n 



09004200 

09004300 
Q9 Q 44 0Q 



AtBASE + n 18 0; 
FINDCHKPTI 

LLnrSKREAD tw AfRASFJ 



% ACUR CF FIRST R^ C 



09004500 
09004600 
0900^700- 



TEMP :a 2; 
DOING Ss 3; 

WANT ts VDISKREAP; 



* TNf:(ArRAS£4l]?J 



09004800 
09004900 



tND CASE 2} 
BEGIN X CASE 3 

IF finoflag(work) then 



09005100 
09005200 
09005300 . 



BEGIN 

FLAGMESSAGE(wQRK#MAKEFNr"lP"*LL),lSERCDDE>CA[bAsE3 + ACBAjsE*l])); 
TWXOUTfO>t\ORKLC3>70^ 1); 



09005400 
09005500 
09005510 



GO TO 

end; 

ACBASE423 



bad; 

!• 0; 



09005515 
0900i>520 
090Q55 25 



IF W0RKC03 s TEN8 THEN 
BEGIN 

GOODOBJ la BOOLEAN(W0RK[73.C12; IJ); 



09005530 
09005535 
09005600 



FILENAME la WORKC123; 
INCREMENT l« WORK[143; 
SEQIAST t» WQRKC153J 



09005700 
09005800 
09005810 



SEQIN I. WOHK[163; 

LaSTRECORD :s 
TABLEINFQ Is WORKfiai; 



09005900 

09006000 
090061 00 



WQRKC173 + ii % Record count 



F RETYPE l« WORK C 20 J ; 

souRCEFiLE i» woRKtais; 
GO makcsure; 



09006200 
09006250 
09006300 



end; 

IF W0RKC103 NEQ TEN8 THEN 
IF WORKt203 NEQ TEN8 THEN 



09006400 
OiO06S0O 
0^006600 



IF AC8ASE + n 
ELSE 
BEGI N 



6EQ TBLSZ THEN GO SAD 



09006700 
09006800 
09006900 



09007000 
09007100 
0900 7 2 00 



1^ 

2( 

3 

4 

s( 

6 
7 

el 

9 
10 
n< 
12 

13 

14 4 

15 

16 

,7< 

18 

19 



23 " 

24 

25 

26 ' 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 \ 

36 

37 

38 { 

39 

40 

4,< 

42 

43 

44 * 

46 

46 

47 

48 

49 

50 

51 

52 

53' 

54 

65 

i 



m 



w 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
1-5 
16 
17 
18 



MQVE( 10#W0RDS*WCRK[20]*A[TBASEJ ); 
GO FINDCHkPT 



-tm. 



09007300 
09007a00 
09Q07500- 



ELSE 
BEGIN 
ACBASEt23 



> » 2o ; 



09007600 
09007700 
900 7600 



MOVEC10*WORDS*WCRKtl03*A[lBASti); 
GOODOBJ Is 800LE:AN(W0RK[2a»C12Jl]); 



tND 



09007900 
09007910 

n900flnno 



ELSE 

BEGIN 
M0VE(10»W0RDS*W0aKt0J»AETBASE3); 



09008100 
09006200 
09006300 



AtBASE+23 

GOODOBJ » 
FILENAME 



«= lo; 

■= B00LEAN'(WORK[17] 
»» W0RKC22J; 



[12$!]); 



09006400 
09008410 

Q90Q9 50Q 



19 
20 



22 
23 
24 
2S 
26 
27 



INCREMENT l« WORKC243/ 
SEQLAST J* W0RKt25]; 
SEOIN l« W0RKC26]; 



LASTRECQRO :* W0RKC27J + i; 
TABLEINFO J= W0RKt28]; 
END J. 



09006600 
09008700 
Q9Q0fl«Q0 



It RECCHD COUNT 



LLDISKREaD la AtBASEJ + INC ( A C8Ai)E+ n ) ; 

TEMP Is 3; 

DOING t» 4; : 



09008850 
09008900 
09009000 



09009100 
09009200 
09QQ93Q0 



WANT l» VDISKREAO; 
END CASE B; 
BEGIN % CASE 4 



09009400 
09009500 
09009600 



29 

30 



33 



IF AtBASE+2] 
BEGIN 

FILENAME l» 



« 20 THEN 



INCREMENT l» W0RK[43; 
SEOLAST Ib W0RKC5]; 
SEQIN »= W0RKC6]; 



09009700 
09009800 
09QQ99Q0 



09010000 
09010100 
09010200 



LASTRECORO I« WORKC73 ♦ U 
TABLEINFO I* WORKteJ; 
FILETYPE t» WORKClOlf 



% RECOKO COUNT 



09010250 
09010300 
090104QQ 



34 
3S 

36 



SOURCEFILE 
END ELSE 
BEGIN 



I* WORKCin; 



09010500 
09010600 
09010700 



37 
38 
39 



40 
41 
«2 
43 ~ 



FILETYPE V 
SOURCEFILE 
ENDf 



WORK toj; 
«* woRKcn; 



09010800 
09010900 
09011000 



MAKESUREI 

OBJECTFILE I* o; 
FINDCLL&IAMC33l41l7]*0#Sr3URCEFILE*USERCQDE#USERCOD£); 



09011100 

09011200 
09011300 



♦7 



52 



J4 

55 



DOING t« s; 
WAIT FOR »■ I am; 
ENn CASE 41 



BEGIN % CASE 5 
IF EVENTStU NE» 7 THEN GO BAD; 
ACBASE3 l« EVENTS[3]J % SOURCEFILE LOFPTR 



09011400 
09011500 
90 U 600 



09011700 
09011800 
09011850 



T l» MAKEFNClT'^rLLJ* 

FIND < LL4 1 AM £ 3 3 1 4 1 1 7 3 # 0* T * USERCOOE * USERCOOE ) J 

WAITFQR l» IaM; 



TEMP Is i; 
DOING «= 6; 
ENp CASE 5; 



09011900 
09012000 
00012100 



BEGIN X CASE 6 
IF EVENTStn NEQ 7 THEN 

IF filetyPf neq a then 



09012110 
09012120 
Q9012130 



GO Bad; 

% N OT DAT A 



FILE 



09012140 
09012150 



m • 



>r 



19 
20 



22 



24 
25 



26 
27 
28 

29 



31 

» 

93 

34 

35 

96 

37" 

38 



41 
42 



47 
48 



49 
SO 



S3 



56 



IF ACBASE] GEO THEN * SGUHCtKlLt i\OT f.^PFY 
BEGIN 
LLDISKREjA n ?= EVENTS[^]j ^4, AQpKES^ Up "IT" . ^ ILF 



WANT i» vdiskread; 

DOING »« 7; 

G O TO exit; 



end; 
GO TO cases; 

im C AS E ^ } 



BEGIN % CASE 7 

IF WORKtUaTENa 
BFGIN 



THEN 



A[BASE3 t= 
CONCISESIT 
WQRK[03 t» 



concISebit; 
«= i; 

sii 



WORKtn !■ (LL + SYSTEM) & IXSUTjli; 
WORKC23 »• WORKCJ] »• ERRSW l« uSeRcOde; 
WORKC33 «» ACBtSE^n »»* SOURCEFIUe; 



ACBASE+23 i' FILENAME; 
RUNl J» "UOAD ••; 
RUN2 S» "cande "; 



WANT t« VDISPATCH; 

diskwrite(espu; 
litqutc'wait" "^nocrlf); 



SOURCEFILE 
TEMP t= 3; 
DOING la 8» 



t= FILENAME !- 0; 



END ELSE 
END CASE 

Begin i_ 



GO cases; 
7; 

CASE 81 



CONCISEBIT J» ACBASEJ; 
SOURCEFILE »= AtBASE + n; 
FILENAME «- ACBASF423; 



CASESt 

IF GOODOBJ 
B EfiliN 



THEN 



FINDCLL&lAM[33tiiU7]*e»SQUbiCEFlLE.t6:36 3*Ui>£Rc0DE»USERcUDE); 

DOING Is 9; WAITFUR {a JAM/ 

EN D EL S F GO TQ C AS F , 9; 



END CASE 8; 
BEGIN X CASE 9 
IF EVENTSCn»7 THEN 



09012170 
09012180 
9012 1 9 



09012200 
09012210 
Q9012?15_ 



09012220 
09012221 
09012230. 



09012240 
09012250 
Q9Ql2?6fl- 



09012270 

09012280 

-09012290 



09012300 
09012310 
09012320 



09012330 
09012340 
09012350 



09012360 

09012370 

-a90l 2 3.6iL. 



09W12390 

09012400 

-090l2ii-L0.- 



09012420 
09012430 
09012440- 



09012450 
09012460 
090 1 2470 



09012480 
09012510 
09 12*^20- 



09012530 
09012540 
Q9O12550 



0Bj£CTFlLE»aS0URCEFlLE.C6t36 3 ELSE 



CASE9t 

OK(WORK); 
TWXOUT<LL^WORK[0]ii 12M); 



09012560 

09012570 

GOODQBJ»«FALSE;09012580 



09012590 
09012600 
09012700 



IF TPCOUNT NEQ ft THEN 
BEGIN % TELL USER LINE 
tiaTPFNTRYt 



NUMBER. 



T»»IF ACT3«TEN8 THEN A[T-n ELiE ACT3; 
SPECCWORK»T. [211273, REALd .[i:iiJ EOE 5)); 
TMX0UT(LI,yWQRKtQl^36>2); 



09012710 
09012720 
0901273Q 



END TELLING LINE NUMBER! 
LINECLEARCLCW#AC*3 5; 
IF SQURCEFrLE « FIlENAME 



09012740 
09012750 
090 1 2760 



THEN 



BEGIN 

T I' MAKEFNC»'1S!'#LL3; 
MAKEFILE(LL&13[33;4Uy3M,T,US£HC00E>FlLETYPL,«2); 



09012770 
09012600 
90129 



09013000 
09013100 
09013200 



END I 

riLEsoK i« true; 

INO CASE 9; 



09013300 
09013400 
09013500 



?T 



9 
10 
11 
12 
13 
14 

16 
17 
IB 
19 
20 
21 
22 



23 
24 
25 
28 



27 
28 
29 



30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

W 

41 

42 

43 ~ 



45 
46 
47 

«a 



49 



51 
Bj' 

a 
54 



55 

56 
P7 



t-NO ALL CASES; 
EXITI 

END RESTARTIT; 



09013600 
090i3700 
Q9013 80Q 



%***********•************ **«****tiit********** *********** *****iir****tk*****%],4 00 0000 

PROCEDURE mcPmsq {lcw,a); boolean lcw; array AC03; UOOIOOO 

X****** ******************************************** ************»***^***Jttjt>Q020QQ 



BEGIN 

LABEL SETT, exit; 

R EAL t; 



STREAM PROCEDURE MAKtBOJMSGCW*N); 
BE GI N : ^___ 



VALUE n; 



oi««w; osjsU lit 

NCDU=DI-10; dS: = IO LIT 
END makebojmsg; 



" RUNNING, "; 
"COMPILING."); 



STREAM PROCEDURE SQUASHCA»C); VALUE c; 
BEGIN LABEL E#L; LOCAL TOg; 



LJ 



shba; dU'a; tallyisi; tq6:stally; tallys^o; 

2C36(IF SC a '• " THEN 

BEGIN Slt^Slti; 



IF SC • " 
SltaSI-l; 

end; 



•• THiN GO TO L; 



IF SC=C THEN 

BEGIN 
T0GC$n«SI * 19JJ 



tqg«=tal ly; 



end; 
if sc • leftarrcw then jump out 2 to £; 

DStgCHRi); 



E: 2CDSSS36LIT" ••); 

END squash; 



STREAM PROCEDURE EXAMInEC WORK#L )i 

BEGIN LOCAL T; LABEL LI^EXIT; 
SH»WDRK1 DTIaLl DTtsnWa; 



6( » 6 WORDS MAXIMUM 
Ll» IF SC«" " THEN 
BEGIN 



IN Output array l 



sn«si*i; GO TO Li; 

ENOJ 
IF SC«LFFT arrow THEN JUMP OUT TQ EXIT 



IF SCsALPHA THEN 
BEGIN 

DStgLiT"o"; ds»«chr; 



6CIF SC»ALPHA THEN DSI*CHR ELSE DSis?LIT*' ">J 
20<IF SC*ALPHA THEN SIt«M + l ELSE JUMP OUT); 
TALLYl»TALLY»li 



END 
ELSE 

BEGIN 



EXIT* 



sn*si*i; 

ENOJ; 



60 TO Li; 



Dn*L; T«sTaLLY; SijaLOC T; OSJsrtDS; 
END STREAM PROCEDURE EXAMINE/ 



STREAM PROCEDURE ERHOKMESSAGEC WORK); 
BEGIN 

dh»work; , 



iaoo3ooo 
iaoo4ooo 



U006000 
14007000 

uoofloon 



U009000 
HOxOOOO 
1 401 1000. 



U01200C 
14013000 
14014Q00 



14015000 
14016000 
l4Ql7Qg iL 



14018000 
14019000 
1 40 20000 



14021000 
14022000 
1 40 2 30 00 



14024000 
14025000 
14026QQQ 



14027000 
14028000 
14029000 



14030000 
14031000 



14033000 
14034000 
140350Q0- 



14036000 
14O37O00 
laO 36000 



14039000 
14040000 
14041QOQ 



14042000 
14043000 
14Q44G0Q 



14045000 
14046000 
14047000 



14046000 
14049000 
H050000 



14051000 
14052000 
1 405 2100 



14052200 
14052300 
1 405 2400 



m t 



h 



f 2 

3 

4 

\ S 

6 
7 

I 8 

9 

10 

» 1' 
12 
13 

I M 
15 
16 

I 17 

IS 

19 
I 20 

21 

22 
I 23 

24 

2S 
I 26 

2' 

2B 
I 29 

30 

31 ~ 
32 
33 

34 

3B 

36 

37 ~ 

38 

39 



40 
41 
42 
43 



46 
46 
47 
48 
49 
SO 
61 
52 
S3 
54 
is 
56 



DSl = 47LlT"SYSTt.M 

end; 



ERR0K:TASK was OlbCUMiNUED-PLEASE WAIT" 



BEGIN 
SREGtsBASE+LIBMSfiCTR-ACBASE]; 

DOING «= i; 



end; 
* eventscu » 



FOR COJ SYNTAX ERWQRSt 



% 

% 
JL 



1 FOR EOJ 0,K, 

2 FOR EOJ OS-ED^ 

3 FDR DS"i:n MESSAfiK. 



X 
JL 



FOR 
FOR 
FO R 



BOj, 
LI8MTNCE 



IGNORED » 
8EMQVEQ. 



% 

% 
JL 



7 FOR LiBMTNCE CHANGED. 

8 FOR SECURED FILE. 

9 FOR ZfP-ErtRilK, 



X 
X 



10 FOR NOT ON DISK. 

a FOR NOT OBJECT CODE FILE. 



IF 



EVENTSCl] 
BEGIN 
.-IF_BGJMSG 



* 4 THEN % BOJ E^ENI 

THEN % I NDICAT E ACTUAL BD J 



BEGIN 

MAKEBQjMSG(WCRKCOJ*COMPlLrNG); 

TWXQUTfLL>W0RKCm«ll,l3; 



IF 



B0JMSGJ=FALSE/ 

END bojmsg; 

CONCISE THEN MATChC RL)N2> "C aNDE 



BEGIN 
LiTOuTC' 



') ELS^ 



■BOJ- ",NOCRLF); LlTOUTtRuNl»CHLF)i 



MATCHCRuNWPAPER ") MATCH{aoN2#"CANPE ") 
BEGIN 
READTAP£(LL&13C33M187]>8>C/USERC0DE)J 



end; 

END BOJ 



ELSE 



IF EVENTSIl] 
BEGIN 
IF LIB M TNCE 



GEQ 5 AND EVEnTSCU Leq 7 THEN * LIBRARY MAInT 
THEN 



BEGIN 

ACSRe«5-UIBM86CTR3»*EVENTSCIF EVENTSCl J«S 

IF LIBMS6CTRI»LIBM3GCTR*1 lEO THEN lAW 



END ELSE 
END ELSE 



Then h 
«« o; 



tlSE x}f 



lAM := 0' 



IF EVENTSCn * 3 THEN X OS-EQ MESSAGE 
BEGIN 
TWXOyT(LL#WORKE03>0>l>? * CR/LF BEFORE MSQ 



SQUASH CWORKtOJ^'M"); 
IF RUNNING AND NOT BOOLEAN CHELPTQGGLE ) 
BEGIN X TRY RUNNING "HELP" PROGRAM 



U052500 
14052600 
HO527Q0 



IF NOT 600LEAN(DOIN6) THEN X FIBST LIBRARY MAINTENANCE CALL 



,14053000 

140S4000 
14055000 



14056000 
14057000 

i4 oaaooQ 

14059000 
14060000 
1406100 



14062000 
14063000 
14064000 



14065000 
14066000 



14068000 

14069000 

.14Q7i3000 



14071000 

14072000 

14071000- 

14074000 

14075000 



14077000 
14078000 



14080000 
14081000 

HQ6 200Q 



14083000 
14084000 
14085 Q0 Q. 



14086000 
14087000 
14088000 



14089000 
14090000 
14Q9100Q 



14092000 
14093000 
14094000 



14095000 
14096000 
14097000 



14098000 
14099000 
14100000 



14101000 
14102000 
14103000 



AND NOT SCHEDULINE THEN 



EXAMINE(W0RK#L); 

IF CCOMPAR(LCn#"EGF 

AND 



14104000 
14105000 
14106000 



••) OR CUMPA«(LE13'"PAR «)) 



14107000 
1410BOO0 
14109000 



'9-^• 



T< 



• • 



h 



CC0MPAH(RUN2*"CANDE ") OR CUMP AH(HUN2, "DI SK 



)) 



AND 
LCQ] 



fiEQ ^ THEN 



14110000 
UU3000 
UIHOOO - 



1 

2 

3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 



SETTI 



BEGIN 

W0RKC03»«l.tn; % 
WORKCl Hit C^l^ » 



MESSAGE TYPE 
MEM ^ 



UUSOOO 
14116000 
14117000 



W0RKC2]»sLCiJ; 

W0RKC3]»sRUNi; 

■ WQRKE43l«RlJNy? 



% FID 



W0RKC5]«»LL4FILETYPEC34»42J6]; 
IF C0MPAR(UC4]#S0URCEFIUE) THEN 
IF CQMPAR(1,E53>USERG0DE) THEN 



14118000 
14119000 

i4i?oono 



uiaiooo 

14122000 
1 4I23 QQQ 



wQRKc:3].ciii]5*i; 
w0rkc63jsuserc00e; 
work[73>ctpcqunt; 



* WCHKFILE TUGGUE 



14124000 
14125000 
141260Q0 



13 
14 
J16 
16 
17 
18 



19 
20 



23 
24 
25 



26 



27 
28 



31 
32 
33 
34 
35 
36 
3?" 



38 

39 



40 

41 



42 
«3 



44 
45 
16 
»7 

•e 

49 
SO 



51 
52 

a 

54 



55 
56 



WORl«C8 3l»SOURceFIUE; 

MOVE(l6*WORDS,CTRANDBASt*WDRKtloJ); 
■ OIS KWR I TE CE S PU; . 



14127000 
14126000 
141290iH3- 



HELPTOGGLE'si; 
NORETRYlso; 
JF BgniEANCUPnATEHlTX 



then % IjPQ ATlN V rtC i R KFllE 



BEGIN 

Tla!MAKEFN('»lP''#l.L); 
TF rQMPARfWQRKrn*T^ 



14130000 
14131000 



end; 

END % If COMU MESSAGE 
ELS E % CHECK TERMlNA L^E SgAGEA 



UH rtqRKtUaQ THEN NDRE TR Yta U 



14133000 

14134000 

-tiUSSOOO 



E HHQHS 



14136000 
14137000 
14138000- 



IF (CDMPAR(LCl3*"FiAG " ) OR 
C0MPA9(LCU#«INVALD ") OR 
(C0MPAR(Ltl3V''IQ , "} AND 



CQMPARClC23,''ERR 



"))) 



14139000 
14139010 
1 4 1 390 20 



AND 

(C0MPARCRUN2, •'CANOE ") 

SQ U RCE FIL E N FQ THE N 



OR C0MPAR(RUN2#"DI3^ 



)) AND 



BEGIN 

l.C43««LC53l*0; GO TO SETT; 

END ELSE TWXOuT(LL>wQRKt03^;^2.1)J 



14140000 

uuiooo 

14 14 1100 



END ELSE TWXOUT(LL*WORKC03W2M); 
END ELSE 



14142000 
14143000 
14144000 



IF EVENTSC13 GEO 8 THEN % MiSCt MESSAGES 
BEGIN 
ERRSW tn RUNli 



14145000 
14146000 
14147Q0Q 



MS6PTRJsEVENTSCl3+16; 
ALLMCPMSG J* FALSE; 
HELPTOGGLE«* RUNl :» RUN2 



14148000 
14149000 
14150000 



;* lAM <a 



NORCTRYl»e; 

IF NOT BREAKORWRU 

GO TO exit; 



U151000 
14152000 
14153000 



THEN IAMt»VeRROR; 



14154000 
14155000 
14156000 



end; 
if eventse13 leo 2 then % eqj for this guy 



BEGIN 
ETIME 
10 TOT 



14157000 
14158000 
14159000 



t» ETIME * EVENTSC33,C16«323J 
m lOTOT ♦ £VENTSt41, £1613231 



ERRSWlsRUNi; 
COMMONCELL «« WORKteJ; 
IF C0MPaR(RUN1«"HELP 



14160000 
14161000 
14162000 



") AND C0MPAR(RUN2>"0I5K ") THEN 



BEGIN 

HELPTOGGLE I « O; 

IF BOOlEANCUPDATEBIT) 



14163000 
14164000 
14165000 



AND EVENTSC13 g I THEN X WORKFlLE UPOATE 



14166000 
14167000 
14X68000 



Jj 



m t 



rf 

2 

3 

4 
5 



9 

10 

I 11 

12 

'3 

M 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

90 

51 

52 

53 

S4 

55 

56 



BEGIN 

LINECLKAR(LCW*A[*]); 
TwxnUT(l I .[ L.n.?); 



IF BOOl.EAN(NORETRY) 
ELSE LITOUTC'OK 
NORCTRYlBQt 



THEN CANCELCKPTCAt*]) 
•*#CRUF); 



14169000 
14170000 

urn, 000- 



IF BOOLEANCCOMMDNCt:LL,C35l] J THEN 
SOURCEFlLE:«MAKEFNC''lS",Ll,); 

WRlTEASTFRl&KiaTRllE; 



14172000 
14173000 
1 4 17 4 00 0- 



QO to exit; 

end; X IF UPDATE 



WAS IN PROGRESS 



JJL 



IF BOOLEANCCCMMUNCELL.Cajnj THEN bOURCtF IlE J =MAKEFNC "1 S'^^LL ); 

end; % IF EOJ FOR HELP PROGRAM 

EVENTSCn NEC 1 AMC) NlUT BRLAKORWRll THEi^ % KAD 



14175000 
14176000 
14177000 

14178000 

14179000 

- UiaQODJl- 



&€QiN ■■ 

MS6PTR«*IF COMPILING THEN 12 ElSE 28; 

If OOSLICCNSE THEN 0QQCATCH£RCLCW*A[*3); 



14181000 
14182000 
H183Q00- 



SCWPREVJ=PREVRCW:sLLWOHDS; 

INITIATE0WHILE6USY!5FAlSE; 
END % BAD NE^S 



14184O00 
14185000 
14186000 



ELSE 

BEGIN 
MSGPTRtap; 



14187000 

14188000 
14189000 



IF A[BaSe*1] »5 W0RKC12J Nt^ THEN % CHaIN RtaUEST 
BEGIN 
WANT I' VDISPATCH? 



14190000 
14191000 
14192Q0Q 



IF AtB»SE*13,C48«6] NEQ •• " THEN 
A tSASE* I J » »A CBA3E+ 1 J ,[6 » 36 3 ; 
Af8ASF»gi >8 WQRKfl.^lt 



goerr(acbase+1]*42); 



14193000 

14194000 

.I4l9')000- 



END 

end; 

TiNXOgTaL*LL'0y2-GQ N(; iSE3I T ); 



14196000 
14197000 
i/ii9flnnn 



14199000 
14200000 

i42oinnn 



IF (E0JMS6 OB EVENTSE13 NeO 1) AND NOT bOOLEANCHELPTOGGLE ) THEN 14202000 
BEGIN 14203000 

WRITEASTeRISK t« FaLSE; . 14204000 



WORK[0]»s(IF EVENTS[13=1 THLN "END " ELSE "ERR 
MATChCRUNZ^^CANDE ") WPRK[1] isrtUNi ELSE. 
BE G IN 



"); 



WORKClJl* 

IF COMPILING THEN "CQMPIuE" ELSE 
IF RVNl,tl2ri3«l THEN FILENAME ELSE 



1420i3000 
14206000 
14207000 



RUNi; 
END MATCH CANDE; 
TIMEUSED(WORK[23>TlMECONV(EVENTS[33.I16i32 3f FALSE)); 
BLANKCWORKCI]); SQuASHCWOBKtO]*"""); BL'^NKC WQRKfO 3 ); 
TWXOUT(LL»WDRKC0 3mS*2)J 
If ScHEDULINE THEN 



14208000 
14209000 
14210000 



IF NOT NOSTOP THEN 

IF EVENTS[i3 NEQ 1 ThEN 

SCHEDERRQr; * TERMINATE 



14211000 

14212000 
14213000 

14iil4000 

14215000 

14216000 



SCHEDULE 



END IF EOJMSG; 

I AM ««• o; 

FND EDJ STUFF! ff 



14217000 
14218000 
14219000 



14220000 
14221000 
142220QQ 



IF 



WANT : 
BEGIN 



VDISPATCH THEN % CHAIN Hp.QuEST 



RUNI {s ACBASE-^n; 
RUN2 »■ At8AS£+23i 

END ELSE 



14223000 
14224000 
14225QQ0 



14226000 
14227000 



T< 



si 



h- 



10 

11 

12 
13 

14 



(16 
'16 " 
I ^7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 ~ 
32 
33 
34 
35 
36 



37 
38 
39 



40 
I 41 
42 
43 ~ 
44 
45 
46 
47 

«8 

1 — 
49 

50 

51 

52 

53 

54 

55 

56 



IF WAITF0RJ=IAM = 
REGIM 



C THtN % ALL MLisSAGtS AHt; iiM 



ALLMCPMSG »» 8 (L IBMSGCTR I sKUNl f sRUN2 J «0 ) ; 
IF BOOLEANtHELPTOGGLEJ THEN % TRY AND RECOVER 
IF NOT SCHEDULING TH EN i PGM. MAY RFQUTRt: Tv^X 



iU'd29Q0Q 
14230000 



BEGIN 

RUNps^HELP 
RUN?»="QT,SK 



INPUTS 



14232000 
14233000 
14234000 



want!«voispatch; 
commonvalue I«s espu 

ERRHRMFSS A GEf wnRKU Tw xn i JTf t L .iMndut (M ,U7 .C.ay J ^ t 



14235000 
14236000 
14237000 



exit: 



END 



end; 

IF ALL 



14238000 
14239000 

i424onnn 



dune; 



14241000 
14242000 
14243000- 



END OF MCPMSG; 14244000 

oof,)Ji^*!!?*!***!*!*** **************************************************** 15000000 

PROCEDU RE CQOLlTCA)f ARRAY AtOi; i«nn,nnn 



^^^^^ 15003000 

STREA M PROCEDURE NOD I Sf<MESS ( »VORK^ AMOUNT W VALUF AMOUNT; l5004nQn 



BEGIN LOCAL A,b; 
LABEL L; 

01 » • LOc a; 



LJ 



di:=work; sij=loc a; 

TALLY := 8; 

6CIF Sca^'O'* THEN BEGIN 



51 88 LOC amount; ds ts a dec; 



15005000 
15005500 

1500600 



'I 



ELSE JUMP OUT); 

B »» tally; OS ta 8 chr; 

DS>i»35LI T" segments OF BISK 



SI^^l; Tally ;= TALLY-t-63 end 



15007000 
15008000 
15009000 



end; 

■ IF LL' 



DSJ»8LIT" ", 
'0 THEN 



are NOT AVAILABLE**; 



15010000 
15011000 
15012000 



BEGIN WENEEDTOCOCLIT 

INCCNUOCOUNT); 
END ELSE 



la true; 



15012100 

15013000 

■ 15014000. 



BEGIN N0DISKMeSSCW0Kk,EV£NTSC2] )' 
TWXOUT(LL*WORKCO]>43*U; 

PREVMSG :« msgpqtnteb; 



END; 



msgpoinTer J* 47; 
end; 

lAM tff WANT «« WATTFQR r« Q 



15015000 
15016000 
15017000 

15018000 
1501V000 
ISO g O QQ Q _ 



15021000 
15022000 
1S023Q0Q 



15024000 



PROCEDURE MCPPKCA?; ARRAY ACOJi i6QQinnn 

%********************1,*»*****,l,**,**t**********r ********* till,*** 

STREAM^PROCEOURE flKMESdCWORK); ^_____ 16004QOQ 



BEGIN Dl »* WORK/ 

ds;=41lit"disk 
end; 



SPACE FOUND, YOU AK£ RUNNING AGAIN 



IF LL»0 THEN 

IF (DECR(NU0COUNT))»0 THEN 

BEGIN TIMETOOKLINES I^ true; 



16005000 
16006000 
160070 00 



WENEEDTOCBULIT 5= FALSe; 
END ELSE 
IF NUDCOUNT LSS C THEN NUPCQUNT is p eLSF 



16006000 
16009000 
16010000 



BEGIN QKMESSCWORKj; 

TWX0UTCLL*W0RKC01*4l»CRLF3J 






16011000 

16012000 
16013000 



2 

3 
4 
5 



8 
9 

10 

11 I 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 
20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 { 

36 

37 

38 I 

39 

40 

«J 

42 
43 

44 f 
46 



48 
49 



51 
52 



16014000 
16015000 
16016000 



h 



12 
13 



16 
17 
18 
19 
20 
21 



22 

23 

24 

2S 

26 

27 

28 

29 

W 

31 ~ 

32 

J3 

34 

35 



37 
38 
39 
40 



42 
43 



45 
46 
47 
t8 
49 
50 
51 
52 
53 
54 
55 
56 



prevmsg 
end; 
TAM ts n; 



t= c; 



16017000 
16018000 

ifiQivnoo- 



ENO; 16020000 

X* ********************************** *********##******<k*^^»****»*^^^^^^^*^J^gQQQQQ 

BOOLEAN PROCEDURE MAKEQKEVEnT; ,. 16501000 

X*************************************#*****4**<,***^***^**^^^^***^^^^j,^^^^j^|jy2000 

Bf^lN 16b03000 
STREAM PROCEDURE CKMESSC WQHk ) ; „____„_ ^_„__ l6 b04Q0Q 



BEGIN 01 
OS 

end; 



»• woaK; 

• 28 LIT"SYST£M 



OK 



YOU MAY PROCEEO*"; 



DEFINE AEAU = LINE LLL* Al ] #; 

LABEL exit; 

FOR LL «g LLPREV*! bTEP 1 UNTIL MAXlINES 00 



16505000 
16506000 
1 6507000 



IF NODISKMCP TMEN 
BEGIN 

EVENTSr03 IM 0&LLr33»33»l5J&\/MCPQKr/ttt33l7i; 



16507500 
16508000 
16509000 



OKMESS(WORK); 
TWX0UT(LL*WQRKC0]#29#CKLF); 
MAKEOKEVFNT t= TRUFJ 



16510000 
165U000 
16512QQQ 



GO TO exit; 
end; 

TIMETOQKLTNFS t« MAKEnKFVFNT ts FALSE; 



16513000 

16514000 

.X&5.150QQ, 



EXITJ 

end; 



16516000 
16517000 
16518 000 
16519000 
16520000 



25000100 



PROCEDURE TEACHER(LCW,A); BOOLEAN LCW; ARRAY A[OJ# ^^.w^*wv 

X ****************************************************** ^^ *<,* ^ ^^^ * ^ ^ ^ ^^ j^ j^ ^ ^ ^ 2 5 2 
Bffi l N ^ ^ ^ _ — ^ : , ^ , 3S0QQ?Qn 



REAL T»PTR*INDX*X; 

LABEL MESAGE* QUIT* EXIT; 

IF SEQMODE OR NOT LO(»GEDUN TH£N GO QblTJ 



IF NOT BOOLEAN(DOING) THEN X CASE 
BEGIN 
PTR IS WORKAPRS; IN pX t» ji CLLaH ( ACBaSE* 1 Jr2 ); 



25000^00 
25000500 

250Q06QQ 



WHILE T NEQ 4 AND InDx lEQ 2 CQ X SCAN Ii\PUT RECORD 
BEGIN 
T i« SCAN(PTR«A[BASEflNUX3>"Z'S'^GRKENUADKS^X); 



IF ACBASE+U NEQ QMARK THEN INOX S»I.N0X+ 1; 
end; % SCAN 
im ACBASE»l].r6r4?3; X FIRST INPUT AFTER QMK 



25000700 
25000800 
25000900 

25001000 
25001100 
25001200 



maTchct^'^continu") go quit; * ignohe "conUnue" input 

IF COMPAR(T, "STATUS ") OR Ts"+" ThEN 

BEGIN TAM ts VST A TuSrriFCK ; GO TO l--KTr; 



25001300 
2500U00 
2500 



miL 



MATCHCT»«DATA 
BEGIN 
IF RllNNiNK HR CQMPn TNG THEN &n m MFSAGFJ 



") is SUCCEEDING INPUT GOES TO DATA FILE 



25001600 
25001610 
250Q1620 , 



IF FILENAME 
IF FILETYPE 

DATAENA&I,.ED 



end; 
match(t#"eno 

BEGIN 



« THEN GQERRC'NO FIL£"»1)> 

NEW 8 THEN GaEHH(T»60); i fit<QHG TYPE FILE 

:« true; LirQUTC'QK "^d; gq quit; 



25001700 
25001800 
£■5001000 



25002000 
25002100 
2*^002200 



") X RETURN TO COMMAND MODE 



IF Running or compiling then gc to mesage; 

IF not DATAENABLEO THEN G0EHR(T*8); 

dataenableo J- false; writcasteriskjstrue; go quit; 



25002300 
25002400 
250 Q 250 Q 



end; 
if not scheouline 

BEGIN 



25002600 
25002700 
25002800 



THEN 



25002900 
25003000 
25003100 



2 
3 

4 



10 

111 

12 

13 

14 ( 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 1 

27 

28 

29 I 

30 

31 

32 4 

33 

34 

35 \ 

36 

37 



42 

43 

44 ' 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 < 

54 

55 

56 < 

57. 



m 



h 



MATCH(T»"TQ 

BEGIN 
IF Ai:BASE,-»2Jt[,;»23 



") % SS M£si>AGt 



GTR , 0„Th&N , G nF:R RC ,AEBASE*23>8)i 



250U3200 

25003300 
250 tf340 Q 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
i15 



STlCK(PTR*L*WORKENDADRS)i 



SSWSGJ 
ENDl 



tITOUTC'l 



'*i)i GO quit; 



25003500 
25003600 
250Q37QQ 



MATCH£T#"TAPE 

BEGIN 
MATCH(RUN 2, 



"J % SWITCH TO PAPER TAPE MUDE 
'CA NDE ") GGtRRr'NQ , PRGw'>9„)j 



25003800 
25003900 
2 5O039 1Q 



IF NOT RUNNING THEN GQERRC '•NOPRGRM'N 8 ) ; 

IF 0EVICE»C0NRAC OR OEVICe»BlOS THEN G0ERR<T#56); 

X PUT YUUR FUNNY TERMINALS HERE 



25003920 
25004000 
25Q 04t 00 



READTAPECLl<^13C33;ait73/6^0>USERC0QEJ/ QO QUIT; 



2500*200 
25004300 
250Q^40g 



end; 

ENDI % IF 



NOT SChEOULINE 



MES>AGFI 



25004500 
25004600 
3^004700 



17 
18 
19 

20 
21 



IF PREVRCIN - BASE LEQ 
IF INITIATEDWHILEBUSY 

BEGIN 



35 THEN % NOT ENOUGH RCUM 

THEN * QHIGINAL REvQUEST INCOMPLETE 



IF RUNNING Then LITOuTC"RUNNlNG"*n ELSE 
IF COMPILING THEN Ll T0UT( "CMPIlNG", 1 ) ELSE 
BF G TN 



25004710 
25004715 

.2 50047 20 



25004725 
25004730 
ySSXAt 



-2^ 



as. 



22 
23 
24 
25 
26 
27 



Lt0]>s" STATUS"; BLANK(LtCj); Lrns-"0K 

twxout(ll#lco]m1»2-conc1sebit); 

e n d; 



BLANKCLCU); 



25004740 
25004745 
25004750 



GO TO quit; 
end; 

If DATAEN ABlED 



THEN MSGPTRI»6fti3! YQll ARF IN DATA HOOF 



25004755 
25004760 
25004770 



28 
29 
30 



LLDISKREAD «= MSGPTR DIV 3 * Mi»GFILELOC; 
DOING ta i; 

WANT >» vniSKRFan; 



25004800 
25004900 
25005000 



31 
32 
33 
34 

35 

36 

37" 

38 

39 



END % CASE 
ELSE 
BFfiTN 



25005100 
25005200 
25Q0'>3nn 



IF T »«* MSGPTR MOD 3 NEO THEN MOVE Cl0*WCH0S^ WORK [Tx 10 3 * WORK [ ]) i 25005400 
TWX0UT(LL*W0RK[0]»64*2 - CONC Ii>E8 1 T ); INQUIRY :« FALSE; 25005500 



MSGPTR IS REALCRUNNING OR COMPILING) x MSGHTR; 



2 50Q^ 6QQ. 



IF SCHEDULINE THEN 

IF NOT NO STOP THEN 
IF NOT B QDlEAN Ci> CM£ DN A M£ «[lUl? 



THEN 



25005700 
25005710 
2 S0Q 57 2Q 



♦0 

41 
42 



BEGIN 

lAM Js vchange; 

ACBASE] :a SCHE0NAM£.U>423; 



25005730 
25005740 
25095750 



ACBASE+lJ l» 631 « "ABORTED" FILE TYPE 
FIND(LL&1AMC33»41»71#0>SCME0NAME.C6I423# 
ySERCflOE*USERCOD£); 



25005760 
25005770 
25005780 



49 

50 



schedname j= c-schedname); 

TEMP J= 2; DOING Js 1; 
JAi TFQR «= IA M ; 



% TERMINATING FLAG 



25005790 
25005800 
2 50056 1Q- 



GO TO exit; 

END ELSE ScHEOGQTOC-U; 
OUlTl IAM t« 01 INQUIRY l» FALSE; 



25005820 
25005830 
25005840 



52 

53 



end; % CASE 1 
EXITI 

ENn PROCEDURE TEACHER 



25005900 
25006000 
25006100 



PROCEDURE INPUT(LCW#A,TTYINPUT*0K0FFSET#DISKL0C); 26000100 



57 



m • 



rf 

2 
3 

4 
5 



13 



IS 
IS 

\ " 

18 

19 
I 20 

21 

22 
I 23 

24 

25 
I 26 

n 

28 

I M 

10 

31 ~ 
I 32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

*3 



I 44 
45 
46 

I 47 
48 
49 
90 
51 
52 
S3 
54 
55 
56 



VALUE 
REAL 



ARRAY ACOj; 

BEGIN 
REAL STREAM PROCEDURE 



DKOFFSET^DISKLGC^ 
DKOFESET*OISKLOC*TTY input; 

L cw; , 



BEGIN 

Di:«LDC 

SUsLOC 



OUTSUPR(lNPUT/OUTPUT)J VALUE INPUTJ 



input; 
input; 



dsj=7fill; 

PI :gQUTPUT; 



8(IF SC*" •• THEN Sli»Sl + i ELSE 

BEGIN OStsCHR; TALLY « *TALLY+1 ; 
nilTSyPRlaTatl Yt 



END); 



END STREAM PROCEDURE OUTSUPR; 
STREAM PROCEDURE PLSWAITC WORK ) ; 
BEGIN 



0Ii«W0RK; 0Sia26LlT«PLEASE WAlT - NO USER OlSK"; 
End STREAM PROCEDURE PLSWAIT; 
C O'^HENT THIS PROCEDURE SCANS THE INPUT USING SCANMER AMD 



THEN CONTROLS THE PROCESS OF ^^HAT IS FUUNU, 

IT BUILDS THE TaBlES fUR DATA LiNLb* AND 

CALLS QK THF VERa PRQCESSPHS rUR CUMMaND LlNrS^ 



END comment; 

STREAM PROCEDURE FIXERRURMSG(SEQ'L); 
BFGIN 



VALUE seq; 



DijsLOc seq; dsj*7fill; sii=loc 

DSJaULIT^FlX SYNTX LRR P "; 
_axl^_.SC = " " THFM STt8ST-^i TL s£ Ds;=CHRU 



END 
DEFINE 



STREAM 



PROCEDURE 

VERBV 

PAR 



fixerrormsg; 

s ACSRE3J.U0183 »f 
» ArSRFr.3.rg!3ifti m. 



bto; Di: = l; 

Ds; = eLlT" ". 



LABEL 

REAL 

DEFINE 



SwDS = A[BAS£J,U0:8] 

TBLTODK » 2#» 
MQREVFRflS = 1 «i 



CENTRALS CASE 

BEGIN 
, BEGIN 



CENTRAL#SCANl#NODlSKf£XiTi 

t,e; 

TABfTABi] s WeRKfTABl] «} 



DOING OF 



-I CAS E Q 



BEGIN 



IF NOT LOGGEDON THEN 



% VOID 



lAM »«: VHFLLQJ DOING i* \i 



end; 



30 tXiT 



IF SEQMODE THEN % COUlO 
BEGIN % CHECK LEFT ARROW. 
IF WORK CO 3 GTR 1 THEN 



BE LEFTaRROW or DATA LINE 



BEGIN % SEQMODE DATA LiNE 

T:s2; ACBASE] J = SEQlN»'SEgLAST :=St«JLAST + lKCR£MFNT; 
IF SCHEDULINE THEN 



BEGIN XSE^iD OUT SEQ NUMBER. THE MCP WILL NOT oO IT 

E !■ 0UTSUPRCDECC0NV(iitauAST-«'INCREMENT)/iW0RKt03?; 
TWX0UT(LL#WQRKC03>E*N0CRLf ); 



end; 



IF DEVICE=CONRAc OK ULVlCt=BlDS THEN 

IF SEQLASTsCHkSEQNMBR rHEi\ GUTPUTNUMaERSCLCW^AC*]); 



END ELSE T »« 5; % NULL INPUT 

END ■ ■ELSE,,,. ,.,,.■••.•• 

IF DATAENABLEO TH£N X INPUT TO DATA FIL€ 



26000300 
26000400 
26OO0^QjI 



26000600 
26000700 
26000710 
26000720 
26000730 
26 000 74 0. 



26000750 
26000760 



26000760 
26000790 
26000792- 



26000794 
26000795 
36QQ Qflnn 



26000900 
26001000 
-.26001100- 
26001200 
26001210 

26O0l230"' 
26O01240 
-^600 125a 
26001260 
26001300 

?ftQ0unn_ 



26001500 
26001600 
P60Q17nn 

26001600 
26001900 

26002100 
26002200 
26002 IQJI, 



26002400 
26002500 
26002600 



26002650 
26002700 
26002800 



26002900 
26003000 
26003100 



26003200 
26003300 
26003310 



26003320 
26003330 
26003340 



26003350 
26003360 
26003370 



26003400 
26003500 
26003510 



T< 



18 
19 



23 ' 



29 ' 
30 



34 
35 i 
36 
37 
38 i 
39 



42 



44 ' 
46 



47 
48 



m 



53 



55 

56' 
57 



>-r 



2 
3 
4 
5 
6 
/ 

a 

9 
10 

11 

12 
13 
14 

il5 
16 
17 



19 
20 
21 
22 



I 23 

24 

25 
I 26 

27 

28 " 

» 

30 

31 ~ 
1 12 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
»7 
•8 
49 
50 
51 
52 
S3 
S4 
56 



BEGIN 



ACBASE] 



IS LASTRtCORD «= LASlfiECOHU * 1 



END ELSE 

BEGIN % NOT SEQ MODE, 

SCANNER(wOHKADRS»At*]>LCW>wORKENOAOHS?; 



2600352C 
260C;ib30 
26003540 



E NDf 



SREG 1= BASE + 1/ 
TJ=ACaASE],C3:33; 



26003530 
26003600 
26003700 



BEGIN 
BFGIM 



CASE T OF X HANDLE THE INPUT LINE, 

X OnPSi SCANNFR RFTIIRNFU 7ffin 



26003800 
2OU03V00 
26004000 



i WHICH MEANS THERE WAS A COMMENT* 
% SU JUtiT SKIP IT 
lAMta><AMT»sn; ___™ 



26004100 
26004200 
26004300 



CDHMrwT 



END SCANNER CASE 0; 
BEGIN X SCANNER 
VERB CHFCK8 ^___ 



26004400 
26004500 
26004600 



» 1 ; WE HAVE A VERB 



IF CHECKBlT(ACSREG].[9t9] DIV 2,Ht 5TRI CTED VERBb ) THEN 
BEGIN ERRSw:*VER8TABLE[ACSRtG3,CV?9]]; W aNT » *VtRROR; MSGPTr:s49; 

— G Q TO exit; End; % u shr i s no t PERmITTEh to usf ^fp^ . 



26004700 
26004800 
26004610- 



WRITEASTERISK 
TEMPIa J,; 

PAR AM r» SiAi pS; 



i« true; 



26004820 
26004830 

260fl4fl40 



IF WENEEDTOCOULIT 

BEGIN DOING J= 3/ 

GO TO nOQ ISk ; 



then 



26004900 
26005000 
26005100. 



end; 

SCANU WANT l« VERBV; 
I F VERBV s VSEQ 



26005120 
26005140 
260Q5l6n. 



END 



IF At8ASEJ.C16ll5] GTR 1 
ELSE lAM := Oj 
SCANNER CASE 1; 



THEN IAMI»0 ELSE 



THEN UOIWG J= MOreVEHBS 



26005180 
26005200 
2600525Q 



BEGIN X SCANNER 

IF FILENAME a OR 
NOT FILESOK THEN GQERRC'NO 



E :a ACSREG3& D I SKLOC [ 4 ! 36 ! 123 

& DK0FFSeT[16J43J:j]; 
IF SEQVODE PR DATAENABuED THEN 



» 21 WE HAVE A SEQ NUMBER* 
FILE'M?; 



26005300 

26005400 
26005500 



26005600 
26005700 
26005800 



T »= 2 



ELSE BEGIN T««ACSREG413; SEQIM saCSREgJ ; END* 

E.tll2] tm t; 

IF Tg3 THEN IF FIXERSOHC WCRKAPRS* wORKeNDADRS ) 



26005900 
.26006000 
2 60061Q Q 



THEN 



26006200 

26006300 
26006310 



BEQIN 26006320 

FIXERRORMSG(DECCaNvCACSHEG])*L); T wXOUT CLL*L [0 ] * 24* 1 ) ; 26006330 
M SGPTR i- Hii lAM 8= O; GO Tn tLXIT; 26006^40 



end; 

COMMiNT 
NOSAtE >g 



NOW PUT 
FALSE 1 



tUT EnT«V INTO TABLEI 



GOODOBJ »» false; * UBJ does not MATCH SOURCE 
IF DOGHCUSEtLL] LEtt THEN % URST OQGt 
DOGhCUbELL L] t »CTRaNDBASE [ROW INUSE 3 ; 



26006350 
26006400 
26006450 



ACTBASE ♦ TPENTRYJ 

INC (tpcount); 

IF TPENTRY LSS 9 THEN 



»» E) 



26006500 
26006600 
26006700 



BEGIN INC (TPENTRY); 

AETPENTRY] J= TENS* 
lAMis DOING :s WANT 



26006800 
26006900 
26007000 



J* o; 



END ELSE 
BEGIN 
00IN6 



26007100 
26007200 
26007300 



i» tbltqdk; 



26007400 
26007500 



1^ 



10 



13 

14 



IS 
17 
18 



19 

20 



25 
26 



27 
28 



29 
W 
31 " 



34 

35 



36 
37* 



39 



4S 



t8 



19 
50 



52 



55 
5« 



BEGIN 



IF TPREC GTK TMtN * tiE'f BACK kvhAT I^aS ^^RITTEN BEFOREt 
LIDTSKRFAO i- TPUKAQR/ 



END 
ENHJ 



Temp ts 3; WAMT J» VDi4>KREADJ 
ELSE 60 TO CENTRAiJ 



260C7700 
26007800 
?60Q790Q 



END SCANNER CASE 2} 
BEGIN % SCANNER 

lAM u r; 



26006000 

aloosioo 

2600620-0- 



= 3t WE HAVE A SPEC ChAR 



END SCANNER CASE 3; 
BEGIN X SCANNER « 4r ITS AN 
WRITCASTFRISK »» true; 



26008300 

26008400 

,26QQ92iIQ- 



SS MS6 



END 



ssmsg; 

lAM »s o; 
CASE iU_. 



26009300 

26009400 

■ 2fi 0095 Q.Q.. 



begin x case 5 - null input 

writeaSterisk j» scqmooe; 
SFQMQpr ig FAi sf; 



26009600 
26009700 
260 098 00- 



» RESPOND IF ENDING SEQ. MODE 



END 
END 



IAM t? 

CASE 5; 
SCANNER 



o; 

CASES. 



26009810 
26009820 
26QQ9fl^0 



END CASE 01 
BEGIN % CASE 
IF WFNFrnTflr.QnLrT 



is HOREVERBS 
THEN 



NODISKJ BEGIN PlSWA iT C WORK ) ; 

TkyXOUTCLL'WORKCOJ/Zd/l); 
WAITFHR }= VMCPOlSJ 



NODiSKMCP j» true; 

MSgPOINTER Is 46; 
fin TO fXTTl 



end; 

SREG 
TEMP 



is 
is 



SREG 
TEMP 



CT 

t; 



is PAR + 1) 



PAtAM t» PARAM - TJ 

WANT l« VERBV; 

IF CHECKBlT(A[SREGJ,t9<93 



BEGIN 

ERRSW is VERBTAiiLE[AtSKEG].t9t9J3; 

WANT «* VERROK; MSGPTR :* it9; 



OlV 2»RESTRiCTEDVERBS) THEN 



IF 



GO TO exit; 
end; 
swos * 



temp * PAR THEN IAM |s DUING i* O; 



END CASE W 
BEGIN % 
CHKPTCA[*3); 



CASE 2: TBLTODK 



BEGIN 



IF TPREC USS 2 THEN 

INCCTPREC) 
ELSE 



TPREC is o; 
IN CCTPCKPI; L); 



end; 



IF TPDKREL GTR 14 THEN 

BEGIN LlTOUT(*'CWAlT)'SU; 



WANT»»VUPDATE ENO; 



TPENTRY 
END CASE 2; 
GO TO SCANi; 



■' IAM S= ( 

% CASE 3 



EXIT! 



END ALL cases; 
END USER input; 



26009840 
26009850 
2600 9900 



26010000 
26010100 
26 1 U-Q- 



26010120 

26010130 

■ 26010140. 



26010150 
26010160 
26010170 



26010180 

26010200 



26010400 
26010500 
26010510 



26010520 
26010530 
26010540 



26010550 
26010560 
26010600 



26010700 
26010800 
26010900 



26011000 
26011100 
26011200 



26011300 
26011400 
2 601 1500 



260U520 
260U550 
26011600 



26011700 
26011800 
26011650 

26011900 
26012000 
26012100 



"wn* 



ji 



12 



• • 



N 

2 
3 
4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
M 
(15 

he" 

(l7 
IB 
19 
20 
21 
22 
23 
24 



25 
26 



27 

28 

29 

30 

31 ~ 

32 

33 



34 

35 



36 

37" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



49 
50 



51 
52 
53 

M 



55 
56 



X******************************-*** ********** ************************^***^27OOOO00 
PROCEDURE DISPATChCLCW^A); BOGLEAh lLw) AHRAY A[0]; 27000100 



JOBS 



BEGIN X STARTS 

REAL chunks; 

Cl.EAR( W QRKr03r3Q)? 



W0RK[0]»sW0RKtl«3J=RUM; 
W0RK[1] J=WORKt33 «=RUN2; 
HQRKr ?3»= Q& 2Cfl»38M C )3> 



27000300 
27000400 
2700050Q 



% FiRiJT NAME. 
% SECOND NAME 

% FU<i^^f. COUP 



W0RKn6]l«IF PHOCESStlMiT GTR THEN PROCESSLIMIT ELSE 54000; 

W0RKC173I»IF lOLIMIT GTR THEN lOLlMlT ELS£ 54000; 

IF CnRESIZE GTR THFM % rORF F.STTMATF filWiriM 



27000600 
27000700 
27O0QflQQ 



BEGIN 

CORESIZEJ*IF CORESiZE L^S 2048 THEN 32 

W0RKE20]>»C0RESIZE & l[2:47:iJ; it CANT 



27000900 
27001000 
?7Q01lQn 



ELSE CURESIZE 
EXPAND CORE 



DIV 64; 



end; 

WDRK|21]I»256; 
W0HKt243>«USERCODE; 



27001200 

27001300 

270 Q 1 40 



X STACK SIZE 
X USER COPE 



lAM |s 0; WANT Ja WATTFOR : = VMCPMSG; TEMP 



MaTcH(RUN2,[6J42]#"CANDE 

-BEGIN 



) % CANDL JOt^ TO 



1= 3; 

RUN 



27001500 
27001600 
270017QQ 



MATCHCRUN1,"GUIKLST") CHUNKbJ»2 ELSE 
MATCH(RUN1#"PUNCH " ) CHUNKS?a2 ELSE 
MATCH(RUN1#"L0AD ") CHUNKS»»3 ELSE 



27001800 
27001900 

270U2QQQ. 



MATCH(RUN1*"DElETE ") CHUNKii!=3 LLSE 
MATCHCRuN1#"LFILES "J CHUNKS{»3 ELSE 
MATCHCRUN1 # "LIST ") rHUNKS;»5 LlSF 



MATCHCRUNl, "PAPER " ) CHUNKSJ*5 ELSE 

CHUNKSI«4; 

W0RKC203»»(CHUNKSxi6) S It2t47tl]; 



27U02100 
27002200 
27 002300 
27002400 
27002500 
27002600 



WORKC03,t2« 13«si; % NOT dS-ABLE 

WORKCl]:sERRSw; 

WGRKL183»«1 & SGHEDULINR[46:47» IJ; % PRIORITY 



27002700 
27002800 
27002900 



WORK [19 3 I -ESP I ; 
MS6PTRIS45; 

END 



27003000 

27003100 
2700 3 20 Q 



ELiJE 

BEGIN % Must be user type job. 

WORKC213 »s STACKSIZE; % COMPILEH 



27003300 
27003400 
27003500 



ESTt OR SPEC. VALUE 



27003600 
27003700 
27003800 



WORK t 193 i»commonvalue; 

WORKC183 ts 4 + REALt SCHEOULINE 3/ 

E0JMS6 18 NOT concise; writeaster isK »» concise; 

IF RUN1.C6S6] s THEN % REQUIRES SHIFTI,nG 27004200 

BEGIN 27004300 

W0RK[03:"IF RUM.ll2t63gl THEN FILENAME ELSe " "&RUN 1 [ 6 U2 » 36 ] ; 27004400 



27003900 
27004000 
27004100 



EN0 SHIffI 
IF NOT CONCISE AND NOT CQMPAR(RUN2#'»DISK 
LIT0UT(**RUNNING"»3"1QQ002"); 



) THEN 



MSGPTR »= 44; 

END IF NOT CANDE TYPE JOB; 
W0RK[23.C33n53l3W0RKClQ3; X FSIOHITY 



27004500 
27004600 
27004610 



RUNNING I* true; 

STACKS! ZElfPROCESSLI MIT l»IOLl MI T««CORE SIZE J aCOMMON VALUE l»0; 

IF-EQUATED-'-'THFN^ ■-;' ... : '■•■■ ■ ■.-i:. ,, ■-.■^. ./, .,, ,.: .■ ■ . ' / ; y^,. . 



27004700 
27004800 
27004 90 Q 



IE NOTC CC0MPARCRUN2, "CANOE ♦♦ ) ) OR C CQMPARC RUN^' "0 I Sk ••))) THEN 

BEGIN 
WQRKC13]|gFIRSTgSP» % I ARFI FfllJATIDN 



27005000 
27005100 
2 7005 200, 



ENTERESPCLL#0*At*)); % SCRATCH TABLE ENTRIES 
EQUATED I* false; 

end; : 



27005300 
27005400 
27Q055Q0 



270O5600 
27005700 
g7Q0S60O 



55 

56< 
57 



• • 



h- 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43" 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 

56 



RuMJO8(LL&WAlTF0R[33:«i:73*rtORK|.O]*0); 



27005900 
ENO OF dispatch; 27006000 

OQn^..«..r,r rs.o..«» « ... „„„,,-... ,.. . 28000100 



PROCEDURE DiSKREAOaCw* A); BOOLEAN tCwl ARRAY AfQ]; 28000100 

— _. BEGIN : _^ 3flOoa:^Qo 

28000350 



LABEL T; 



BEGIN 



BEGIN 



IF NOT BCOOING) THElM * OU READ l.N,iTlATE. 

IF PREVReW * BASE LEQ 33 THEiV % AREA IS TOO SMALL. 

ERRSw Is "rnnt QNfi«j 



FNO 



MS6P0IMER :- 9; 
ERR0RCSREti#LCW^ALO); 
fF NAT ENOUGH ROOM 



BEGIN 



TEMP ;» 3 i; 



SREG Js (DOlNGJsl) + i>HZGi 

WAITPUR i' iam; 

DISKlO(LL<tlAMC3 3?al : 7 .1 M * A C 3 , SR£.G » 30 ^ LLP I SKRE AD ) j 
nr RTAn TWTTT ATr 



END OF READ INITIATE 

END ELSE 

BEGIN % READ IS COMPLETE NOW MOV£ IT TO WORK, 

* -i rt I.J rl n /^ C A r C n t- /^ 1 jU #t .-^ .v r rv 1 .. # 



END 



M0VE(30,WUR0S,A[SKEG]/'^0RKC0J); 

IAM := c; 

IF READ complete; 



END OF DISKREAD* 

X********** *>********«* A********************* ********** ********* 

OOPS (LCW# Ai; BOOLEAN LCi^^ ARRAY ACOj; 

. J. _. J. . _» _L ... . . J. . . 4 . . . . . J_ . 1 .. J. . . . J_ , J. . . 



PROCEDURE 



X******************************************«***4***«***«*««***^^^^ 
BEGIN 

t; 



LABEL 



SRE6 «• BASE - AtBASEjf 
ERRSW la AtiNC(SHEQ)J; 
MSGPOINTEH l» 131 



X*********** 



LABEL T; 



IF NOT BOOLEAN (DQINGJ THEN 
BEGIN % COLLECT TANK KECORUS. 



END 
BEGIN 



DOING Is TEMF I* i; 00GHOySEtLLjJ»O; 

LIT0UT("(WAIT) ♦'/NOCiLFj; 

IF TPCOUNT NEQ THEN WANT tc VUPPATEJ 



23000^00 
2H 0Q 050Q 



28000600 

28000700 

,2iLQilQfl 00 



28000900 
28001000 
2 6 00UO Q 



28001200 
28001300 
PftQQlZiOO 

28001500 
28001600 
28001700 



28001800 
28001900 
280020 00 
28002100 
28002200 
280 02300 
28002400 
30000000 
3000010Q 



30000200 
30000300 
30000350 



ERROR (SREG* LCW* At* J); 
END OF OOPS; 

*************************************************** 
PROCEDURE DOGCATCHER(LCW#A); BqQLEaN LCW; ARRAY AJO]; 

X** A********************************************* ************** 

BEGIN _: _^ 



30000^00 
30000500 
30000600 
30000700 
30000800 
31 000 QOO 



31000100 
31000200 
31 0Q Q3 Q Q 



31000350 
3lOOOaOO 
310Q050C 



31000600 
31000700 
31000800 



ELSE % COLLECTION FINISHED. 



DQGLICENSE t» FALSE; lAM «* o; 
OOGCiTCHERSis DOGCATCHERS "i; 
WECANUSi-DATAtsDQGCATCHEPiS LEQ OJ 



31000900 
31001000 
31001100 



LITOUTC "PROCEED"' CRLF); 
END if; 

END dogcatcher; 



31001200 
31001300 
3100U00 



********************************** 



X*************************' 

PROCEDURE C0MPILEIT(LCW,A); BOOLEAN LCw; ARRAY AtOJ; 

X*************** ********** ************* ********************* 



31001500 
31001600 
31001700 



32000000 
32000100 
32000200 



N 

2 
3 
4 
5 



LABEL 

.J_ 



BEGIN 



% 
% 



GENERATE THE LABEL EQUATIONS FUR THE COMPILER. 
CI EAR(wnRKrn3j5g)i 



320U0300 
320U0350 
r^QQQUQQ 



32000500 
32000600 
3PQQQ7Q0 



1^ 
M 

3 
4 

M 

6 



10 

11 

12 

13 

14 

115 

,6- 

17 

18 



19 
20 
21 



22 
23 
24 
2S 
26 
27 



28 
29 
30 



31 
32 
33 



34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 



46 
47 



50 
51 
52 



S3 
54 



55 
56 



% 
% 
% 



% 

% 



% 

% 



WORKCQ] : = IW0I^KC14J :s:RuNl).[6; J6]} *FIKST NAME 

wdrk[1]j=work[15]:=usehcooe; xsecnh name 

W0RKC3J;«10; WURK[int = l2; »FILES TYPL 



WORKtA] I'^CODE 
WORKtl83«»"CAI^O 
DlSKWRITECgSP2); 



32OOO800 
32000900 
3 20Q1 OQ0 



"&4[1M3»53; 
CL£AH(W0RKCQ3»29Jj 



GENERATE THE OBJECT SKELETON CN THE Dl5K, 



-^ 



3200U00 
32001200 
3 200 1 3 00 



W0RKCl63««W0RK£l73««3''/777777777"; XTIME LIMITS 
WQRKtl83«»4; APRIORITY 
WQRKC203t«''i; »N0 CORE EST 



W0RK[2l]ss5l2; 
O'lSKWRITECESPU; 



»STaCK 
CLEAK(W0RKC0]^29J; 



SUE 



3200U00 

32001500 

J 200 16QQ- 



32001700 
32001800 
320Q190Q 



oU^^-yn u--^AjJ^ 



GENERATE THE COMPILER CALLUUT. 
W0RK[14i;8ABS(WQRKC0 3»aRUN2&l6n;A3>Si};»»CnMPtLFR. 



32002000 
32002100 

-3 200 2 200 



32002300 
32002400 
320 25 



W0RK[013:5IF RUNl.taS 12] = "1S" THEN 

FILENAME ELSE HUM; »FlLENAME. 
WQRKC023;»4&4C8;3a?1 , 03&ESPl[iHt33:ib3;iltOBJ.S 



WQRK[33»s''DISk "i W0HKCl33t*ESP2#XL8L EON 
W0RKn83»«4+SCHEDULINR/ % PRIORITY 

W0RKC193I»IF cQMHONVAlUE LSS Q THUN 1 ELSf 3} 



32002600 
32002700 

3 200 2800 



wGRKC223»»a; wORKt243 ;*usehcoce; *save&user 

W0RKtl63 »s 
IF PROCESSLIMIT 



32002900 
32003000 
3 200 3050, 



W8RKC173 «« 
IF I0LIMIT GTR 
W0RKr2n ia 



32003100 

32O03U0 

GTR Q THEN PHGCESSL^MlT ELSE 3'*7777777 ^77 "; 32003 1 20 



THEN lOLlMIT ELSE 3»7777777777» } 



32003130 
32003140 
3^003150 



IF STACKSIZe GTf^ THEN STACKSIZE ELSE 512; 32003160 

STACKSIZEJ'PROCESSLIMIT 5= IULIMlT!«caRESlZE:sCOMMUNVALUE:«o; 32003170 

320Q32QQ 



NOW TELL CANOE & THE MCP, 

COMPILING Ik TRUE! WRITEASTERISK t» CONCISEJ 



32003300 
32003400 
32003500 



BOJMSG := NOT CONCISE/ ED^MSC, J 

MSGPT8 8= 43; 

IAMIsQ; WANTt=WA|TFOH»=VMCPMSG; 



ENn 



RUNJOBtLL*WAlTFORt33l4ir7 3#rtORKC0 3#0); 
ESPliwGETESPOlSK; ESF2t*GETESPDlSK; 
Q F CnMPlt.ElT? 



NUT CONCISE; 
TEMP t» 3; 



32003510 

*DCS32003550 

32003 600 



ctau . ur i.uwr tufa i 1 / . ; . 

PROCEDURE SETUPFILES(LCW,A); BOOLEAN LCW; ARRAY A[03; 



32003700 

32003800 
■l?QQ3qoo 



BEGIN 

REAL t; 

CASE DOING 



33000000 
33000100 

33 000 200 



or 



BEGIN 

Begin % case o 

FILESOK tg false; 



33000300 
33000400 

33000500 



T l« MAKEFN("1T"*LL); 

MAKEFlLECLL&IAMC33«4H7],l*T#USERC0Dt»0*10)| 
T tw T&"P"C12;42:63; 



33000600 
33000700 
33000600 



33000900 
33001000 

3 300 1100 



>r 



1 

I 2 

3 

4 
I 5 

6 

/ 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 ~ 



32 
33 

34 
35 



36 

37" 

38 

39 



40 
41 
42 
43' 



45 
46 
47 
«S 



49 
SO 
51 



S2 
S3 
S4 
55 
56 

52- 



MAKtFILi-:(LL(iiAMC33»4i:/'J*lM^Ui)ERCUDE;,0*TBLS^); 

ACBASE3 «» LASTRtCORU J= o; 

TABlFlNPn ;- r]Q Q^ Q"r „ 



-LL 



END CASE 
BEGIN % 
INC (A [BASE 3 ) 



TEMP I» 1; 
DOING Is i; 
WAITFQR :a IAm; 



33001200 
33001300 
31001400 



0; 
CASE 1 
a 1 THLN 



33001500 
33001600 
33Q Q 1 7Q Q,- 



IF EVENTSC13 •0 THEN INCCAtBASEJ) ELSE 
BEGIN W0RKC03 t» OJ W0R«tl3 M TENS; 

DlSKWRITE(EVFNTSgi3)l WAlTFOfi t^ IkHt 



33001800 
33001900 
33002000 



END ELSE 

BEGIN IF EVENTScn s qR 

BEGIN MSGPOINTER Is U6i 



33002050 
33002100 
33002200 



A[dAStJ=3 THEN 



X NO USER DISK 



FILENAME l« SQURCEFILE «» 01 
REMOVEFlLE<Tl«LL«l3t33»4l»7 3,MAKEFNC"iT"*LL3*USERCQDE); 



33002300 
33002310 

33 0g 23?Q- 



REMOVEFlLE(T*MAKFFNe*'lP">LL)«USiRCQO£); 



END ELSE 
BEGIN ACTBASE+103 != TEN8; 
CA N CEL CKPT(Ar * J); 



33002330 
33002340 
33002350 



wRKTWLADh 1= EVENTStU* 



FILESOK J« TRUE) 

End; 
IA M >« ; 



33002360 
33002400 
330Q2500. 



End; 

LND 

End - 



33002600 

33002650 

-33Q02LZ.QQ.. 



CASE 

-ALL- 



END 



PHQ CFDURE 



1; 

CASES; 



33002800 
33002900 
3300 30fl-a 



setupfiles; 33003100 

X****** ************************************************************ ****<(;34000000 
FRRnRfS,I.Crt»A Ti VjOLUf S; RFAi. S; BQaiFAN Lrwt ARRAY ^rnj^^^onntnfi 

*******<(***•************************* *******3[34000200 

34000300 



BEGIN 
-BtAi 1 



REAL U _^_„__ 

REAL STREAM PRoeEDyRE MKERcERRsW^L^ChRTOG' STRTOg*MINTOG*PLSTOg); 
VALUE ERRSW,cHRT06,STRTUG*MlNTaG#PLST0G; 
BEGIN LABFL FitlTJ 



140004(10 



SIJ^LOC ERRSW; Dli'L' 0S!=5lIT"ERR» '•; TAuLYJ = 5; 

CHRjoGCsi »ssi+7; dsjsichh; tally:=tally+i; jump Out 



34000500 

34000600 

34Q0Q7nn„ 



ro EXIT); 



STRTOGCSItsSl^l; QSt^/CHR; f ALL Y ; sT allY -t-/ ; Ju^/P oUT TU EXlT)J 



mintqgcdsjslit"-"; tally i»tally+i); 
plstog(os»»lit''+''; tally«»tally + u; 
mintqg>»di; ostss dec; ou*miintogj DS;»7riLLj 



34000800 

34000900 
34001000 



EXiTt 



siismintoq; biismintog; 

aCIF SCs" " THEN Si;aSI+l ELSt 

begin DS>sCHR; TALLy:»TALLY^i; 



3400U00 
34001200 
34001300 



END) 



34001400 
34001500 
34OOI6OO 



MKER t* tally; 

END STREAM PROCEDURE MKER; 



34001700 
34001800 
34001900 



TI=MKER(ERRSW,[65423*L, CERRSfcN,[lJ2'3 = n^(ERRS»^.C6: 123 GTR )* 
CFRRSW,C1 >?3^2)»CFRR;?W.n t?3=;3)); ^^__^__ 



twxoutcll#lco3*t#i); 
writeasterisk !• false; 
T »" msgptr; 



34002000 
34002100 
34002200 



LINECLEAR(LCW*A[*3); 
MSGPTR «= t; 
IF SCHEOULINE OR HELPFUL THEN 



34002300 
34002400 
34002500 



i;.wi-<u*i>i. un nimirrui- inc. IN 

BEGIN % TERMlfijATI SCHEDULE l/P & EXPLAIN WHY 

T AU tm Kire AfUe a * nnrktn *tc it t. nninT e/<*i..< T MO 



IAM tm vteacher; doing t«i; 

LLOlSKRf Ap |m MSGPTR 01 V 3j*. 



% OQNt SCAN INPUT 
M^GFILELOC; 



34002600 

34002700 

34002800 

34002900" 

34003000 

34003100 



1^ 

2< 

3 
4 
5( 

6 
7 
8< 

9 

10 

11 < 

12 

13 

14 < 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 4 

27 

28 

29 4 

30 

31 

32 4 

33 

34 

35 f 
36 
37 

38 4 

39 

40 

4 J 

42 

43 

44 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 



>T 



2 

3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
.|15 
16 
17 



19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37"^ 

38 

39 

«0 

41 

42 

43 



45 
46 
47 
48 



49 
90 
51 
52 
S3 
54 
55 
56 



WANT := vdiskread; 

WRITEASTERISK »« TRUE; 

end; 



End error procedures 
X******* *********************** * * * ******************** **x 

procedure CLOSgWCRKTARLE CLCW* A); BOQLgAN lCWJ ARRAY AlQli 

X *************** *********ik*********ilr**«****:^****** ******;( 

BEGIN 
LABFL — r.ASFl» EXIT/ 



34OOJ2OO 
340U3300 
34Q03AQ0 



34003500 
35000000 
35QQQ1QQ 



BEGIN 



CASE DOING OF 



35000200 
35000300 
35000a00 



-% CASF Q 



IF GOODCBJ THEN 

GOOOCBJ J» TPCOUNT = O; 
IF NHT FTlFSOK THFN GOLRRf'Nin F J I >' 



35000500 
35OOO6OO 
35000700 



l)i 



BEG IN 



IF TPENTRY tSS 9 T%N AtTBASE + TPENtRY] J< TENB; 
IF TPfEC GTR THEN 



35000800 
35000900 
35 00 1 000 



END 
END 

cAsn » 



LLDISKREAD i» TPDKADK; 
DOING J= 1; 
JLkUl ;= VnUKREAU^ 



EUSE GO TO CASEl 
CASE 0; 



35OOUOO 
35001200 

3500 t3na- 

3500U00 
35001500 
3500160Q 



BEGIN 
CHKPTCAC*]); 

% VO I D 



% CAbE 1 



35001700 
35001800 
35001900 



lAM i» 0; 

fc-ND CASE U 
-iMD ALL CASES! 



35002000 
35002100 



35002300 
35002400 
3SQQ2'Snn 



E^ITt 35002600 

LNO CLOSEWORkTABLE; 35002700 

PROCEDURE CHNGPSWD(LCW#A)i BOOLEAN LCw; ARRAY AtOj; 36000100 

******* **********************#**♦*********** ******«**************^*^im*^3^QQQ20o 
9£QIN . : 36000300 



LABEL ERR*ExIT; 

STREAM PROCEDURE OLOPSWOCW); 

BEGIN DI; = WJ DS|33CLIT"PLEASE ENJE-R YOUR OLO PASSWORD"; 



end; 



STREAM PROCEDURE NEWPS«0(W); 

BEGIN OI»»w; 0S«»28LIT«NEXT ENTER YOuR NEW PASSWORD"; END; 
FAM PROrrniiRr v/rvpswn/'iiy \ : 



36000400 
36000500 
36000600 



STREAM PROCEDURE vrYPSWD(Wi) . 

BEGIN DIlsw; DSI*31L1T"PLEASE REPEAT YOUR NEw PASSWORD"; END; 

STREAM PROCEDURE SCANPSWD ( W, S» EaDRS ) / VaLUE EAURS; 
BEGIN LOCAL SV^DV; 



36000700 
36000800 
36000900 



siisw; 

DI»»S; DS»»0LIT"O 

7(IF SC « LEFTAtROw THEN 



36001000 
36001010 
36001020 



"i 6li«DI*7; 



BEGIN 

svi»si; 

DVJ=Di; 



36001030 
36001040 
36001050 



sn=LQC sv; sussi + s; 

Dn»LOC EADRS; Dn=Dl*5; 



IF 3SC«DC THEN JUNP OuTI 

sit*svi oii»ovi 
, trnt ' -:■;."■■■■: ■ ■ :■ ■: .- . ■ •■ . 

IF SC=" " THEN JUMP Ouj; 

IF SC«"*" THEN JUMP OUT; DSJaCHR;; 

END STREAM PROCEDURE SCANPSWD; 



36001060 
36001070 
360010 80 



36001090 
36001100 
36001110 



CASE OOIN® OF 
BEGIN 



• *..*■»:» »■■» • t' • • « t • t 



36001115 
36001120 

. : 360Q 113Q 

• f*t*>»«t«t**f*«t**«**«»»»i • 3 6 01140 

34001200 

...■ ..-:-■■■; :..■.■■. . . „ : , ■ , ■. 36 00 UOg 



1^ 

H 

3 

4 

M 

6 
7 

B< 
9 

10 

"I 

12 

13 

14< 

15 

16 

-i 

18 

19 

20 ^ 

21 

22 

23 4 

24 

26 

26 ^ 

27 

28 

29^ 

30 

31 

32 I 

33 

34 

35 ^ 

36 

37 

38 ^ 

39 

40 

41 I 

42 
43 



45 
46 
47 
48 
49 



50 

51 

52 

53' 

54 

55 

56|l 






m • 



h 



1 

2 
3 
4 
S 
6 
V 

e 

9 
10 

11 

12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 
23 
24 



25 
26 



2' 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 



39 
40 



41 
«2 
43 
44 
45 
46 
47 
•8 
49 
50 
51 



52 
53 



54 

55 

58 



BEGIN % CASE - REQUESTING CURRENT PaSS/JOHd 
IF SCHEDULlNE THEN GOERRC "CHANGE "*UO)i 
OLDPSKDfWORK); TWXQuT (LL# ><ORK [U] , 30> p ^ 



BUACKOUTi 

CLEAR (A [BASE 3 * 2 ) f TEMP I » 31 O0ING1 « I ; 



36O0U0G 
36001500 
3 6QP 16QQ 



END CASE o; 

'b eg i nTc a sf 



36001700 
36001800 



1 » SCANNING FOR CURRENT PASSWQRQ 



SCANPSWO£WORKn3'ArtA3El*WORKENfOAD*^S>' 
MATCH(ACBASE3,t6!423*« ") GO ERR; 

NFWPSWftf WORK >1 TWXQUT fLI /wQRK rOl » gfl. \ ^ I 



36002000 
36002100 

-16-QQ22Q0- 



blackout; 

DOING «» 2f 

waitfur >- vtnpi.it; 



36002300 
36002400 



36002600 
36002700 
36002800- 



END CASE tt 36002900 

"i*i*«***tf»«*«t** (*•••••#««•••«••#•, ««*,t,*«t»t,«t»*t**»i*«*f**.**f436003000 

RF6IN X TASr 2 .. St^ANWtMfi rna wFw PA ttfeMnRH j ^nn^in p 

36003200 
36003300 

3600 sang 



SCANPSWDCWORKCU^ACBASE+U'WOHKeNDADHS); 
MATCHCACBaSE+1].C6:42]#" ") GO ERR/ 

VFYPSwnfWQRK)i TWXQilTfLl , i^URK r Q 3 . ^ 1 . i y. 



blackout; 

DOING »» 3; 

waitfqr «» vinpiit; 



END CASE 2; 



36003500 

36003600 

■ 3 6qQ37Q fl- 



REGIN % CASE 3 - SCANNING FOR V? H IF T C./^T T dN 



SCANPSWDCWORKtU#At8ASE+23>WORKENDADRS); 
MATCH(ACBASE + n#AEBAS£*23) ELSt GO ERR; 
LLQISKRFAn la USrRLnf.t 



36003800 
,36003900 

360Q«0n0- 



WANT :» VDISKREAO; 

DOING J3 a; 

END CASE 3; 



36004100 
36004200 
,iAQQ4^nn 



36004400 
36004500 
36004600 



BEGIN % CASE 4 - USeRS/CAnDE RECORD In CORE 
MATCH(AC8ASE].Cfi{42]>W0RKC23? ELSE GO ERRi 



WaRKC2]J=ACBASE+l J.C6J42J; 

DISKWRITE(USERLOC); 

LLDISKREAD 1= USRBASECOj; t UiiERS/CANOE RECORD /lEHQ 



36004700 
36004600 
36004MiL 



WANT }s vdiskread; 

DOING l« 5; 
END CASE 4; 



36005000 

36005100 
36005200 



36005300 
36005400 
36005500 



%.. , 36005600 

BEGIN % CASE 5 - PUT NEW DATE In uSERS/CANDE FILE 360G5700 
WORKE2 3t«DATE; ^ ^ 36005800 



DISKWRITICU5RSASEC03); 
I AM t» 0; 
CND CASE 5; 



END ALL cases; 

GO TO exit; 

ERRj 

LITOUTCBAOGODE"»n; MS(iPTR:«2l; LiNtCLEARCLCW* At *3 )> 

EXITI 

END PROCEDURE CHANGEPAS S WOR Dl 



36005900 
36006000 
36006100 



36006200 
36006300 
36006400 



36006500 
36O06600 
36006700 



%********************«**********************« A ****************** ******* 37001000 
PROCEDURE THYMECLCW*A)/ 37O0UO0 

%********************.»***i»*»*i,il,,i,***»*il,***,,il,w»**«*,)r»*,lr,lr*****j,*»*****^*^* 37001200 



BOOLEAN 
ARRAY 



BEGIN 



Lcw; 

At03; 



37001300 
37001400 
37001500 



9 

10 

11 I 

12 

13 

,4i 

15 

16 

17 I 

18 

19 

20 ' 

21 

22 

23 ' 

24 

26 

26 ( 

27 

28 

29 t 

30 

31 

32 1 

33 

34 

35 < 

36 

37 

38 i 

39 

40 

4,< 

42 

43 

44 I 

46 

46 

48 

49 

50 ( 

51 

52 

53 4 

54 

55 

^i 

57 



• • 



9 

10 
11 
12 
13 

14 

15 

lie' 

17 
IS 



LABEL DUMMY; 
WORKCO] := "USER 



IS"; 



»<QRK C n «s uJ E ^^c U Pt^ / 



blankcwukkcq] ); 
eLANfS(hnHKct3;; 



37001550 
37001600 
370( J 17Q Q 



WORK[23j»DECCONVCLL); WORK[23«»WOHK[2]&"tINE "tfiUStao]; 37001710 
BLANK(WCRKC2])I 37001720 
TWXQUT(LL^WQRWEQ3>24#CHlF); 37001flQQ 



WORKCO] J» "TIME li"i 8LANiKC^^0HM.0J ); 

TIMEOFDAYtWORKClJ^lIMECaNVCTIf'EC DMHi^E)); 
TWXQUTCl L^WnRKCQJ/lflf yKLDf 



WORKtO] I* "C«E USE"; BLANKlWOHKtOn; 

TlMEUSEDCWORKCn^TlMECONVCPTlME* FALSE)); 
TwXQUTC I.Lj> WnRK C03» 33 M ?; 



37001900 
37002000 
37002106 



WORKtO] «» "ExEcuTL"; Blank c wuRK [ J ) ; 

TlMEUSEDCWORKCU/TlMECONVCETlMt/FALoE)); 
TWXOuTCLL*WnRK[03#33^ Pi 



37002200 
37002300 
37002600 



37002500 
37002600 
3700270 



IS 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 



40 

41 



42 
43 
44 
45 
46 
47 
>8 
49 
50 
51 
52 
53 
54 
55 
56 



WORKCO] J8 "IQ TIME"; BLANKCWCRKtOa); 
TIMEUSED(WORKCn>TlMECUNV(lOTOT*FALSE)); 
TWX0UTCLL^WnRK[0J»33M); 



WORKCO] «* date; 

TWX0UTCLL*W0RKC0J»8*2J* 

lAM »? c ; 



37002800 
37002900 
370O3Q0Q 



37003100 
37003200 

370U33Qa 

37003<»00 



END OF TH¥Me; j^uujouu 

X*************************#****** *************************** ***#*******<^3qOOOOOO 
„„, ^ -..-.... _.. „ ., 38000100 



PROCEDURE CARRTAGEfLCw,A); BOflLEAN lCw; ARHAY AfOU 



H.iufcwni UTi/ "nnw i w i u j .> j g mj m iiq 

X**************************************************************«*vt*^***i^3a000200 
BEGIN 38000300 

_R£AL__Ii 38000^00 

38000500 



LABEL ERR#EXIT; 
CASE DOING OF 
B EGIN 



BEGIN X CASE 1 SYNTAX CHECK 

IF DEVICE NEQ TELETYPE THEN GOLRH("CG 

TEMP;ai; >vRlTEASTERlSKI = TRUE> 



"f56); 



IF ACSREG«sBASE-ACBaSE]].C18US3 QEq i THEN 

") TIal ELSE 



BEGIN 
MATCHCACSR£G»»SRE6't-n,C6U2J»"LDNG 



MATCHCACSREG]. C6:42]*"ShGRT 
END 
ELSE 



") T:=0 ELSE GQ TO ERR; 



ERRt 



BEGIN 

ACSREG]t="CC 

G0ERR{ACSREG]»8); 



♦'; 



end; 

IF CT=1 AND CCLGNG) 
BEGIN 



UR (TaO AND NOT CCLONG) THEN 



lAMJaO; GO TO EXIT; 

end; 

ACBASE]tsT; TEWPt»tl 



LLDISkREAD «» USERLQC; 
WANTlaVDiSKRSAD; 
DOING Is i; 



* USEWij/CANDE RECQHD LOCATION 



38000600 

360007 00 

38000710 

38000720 

38000800 

38000900 

38001000 

38001100 

38001i;00 

38001300 

36O0U00 

38001500 

38001600 

38001700 

38001800 

38001900 

38002000 , 

38002100 

36002200 

36002300 

38002400 

38002500 
380026QQ._. 

38002700 



end; % CASE. 38002700 

«••••••••••••■•• • t ••••• t • (t I * t **«•«••* « • a li •••«•» • • * • • « •••♦#••»•••»••» 38002000 

BEGIN > CASE 1 » USERS/CAfttOE RECORD liv CORE 38002900 

CCLONGBIT «= REAL(Ar.BASE3 = l); 38003000 



CCLONGBIT «= REAL(Ar.BASE3 = l); 
WORKC11]:«OPTIONBITS; X UPDATE RECORD 
DISKWRITE(USERLOC); X REPLACE USERS/CaNDL RECORD 



CCC0M(LL#USeBC0DE*A[BASE3); 

lAM Is o; 

FND CASF i; 



38< 
38003100 

38 00 3200 
38003300 

3eoe3«oo 
aftao3500 



m # 



h 



1 

I 2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 






23 
24 
26 
26 
^^ 
28 
29 
30 
31 
32 
33 



34 
35 



i6 

37" 
I 38 

39 

40 
\ 41 

42 

«3~ 
> 44 ' 

45 

«6 

47 

«8 

49 

50 

51 



M 

53 
M 

55 
56 



END ALL cases; 
EXIT: 

EMD PRQCEDDRF fiAftRrAaE cnNTHiiL; 



X**** *************************** ************ * # ************** 
PROCEDURE CHNGNAME(LCW»A); BOOLEAN LCn; ARRAY A£0i; 

X******* ********* lii,* ********* I,*** *1i*iii,*ii*i,i,.t,i,i,i,i,i,i,i,^,i,i,i,^,i,f,^,^, 

BEGIN 
STREAM PROCEDURE NEWNAMECa)/ 
BEGIN 



:■.»»• 



Or«eA; DSl»20l-IT"ENTER YQUR NEW NaME" 

END stream; 

STREAM PROCEDURE SAVENAMecF^ T> EAQRS ) J VALUE EAPRS; 

D r /7 T M 



BEGIN 
LOCAL SV^DV; LABEL l; 

___, si;=f; Di:aT; ds;sliT"0"; os>s15liT" 

THEN BEGIN SI »sSl+i; 



L» 



IF SCs« 

t5(IF SCaLEFTARROW THEN 
BEGIN 



SO L end; 



'; L)i:=Di''ib; 



sv: = si; spsLOc 3v; si!»si+5; 
dv:*di; t]n=LDc eadss; ui:=di+5; 

IF 3SC = DC THEN JUMP nUW 



LABEL 



END 



sii»sv; 

end; 

OSt»CHR); 



DHsOV; 



stream; 
exit; 

IF . S r UFPIII TmF ThFk f.tnHRf "CHAivir^r »»iiC\)'. 



begin 

BEGIN 



CASE DOING OF 
X CASF 0, 



NEWNAME(WORK); 

TWX0uTCLL#wnKKt0J#2C*NQcHLF); 
D0ING:s1; WAlTFORtaVllNPui; 

0; 

CASE 1. 



END CASE 
BEGIN % w„«u *. 
SAVENAMEfWORKf n»ALBAs£r^WORKENDADHs); 



doing:=temp:=2; 

lldiskreau:=usehloc; 

wanti=vci^kr£ad; 



end case Xi 
begin % case 2. 

MQVEC2>WQRDf;* AEBAS£3#w0RKf4n; 



END 



DISKWRITECUSERLOO; 

I AM ss c; 

C ASE 2; 



38003600 
38003/00 
3flOJ-iiiflJI. 



39000000 
39000100 
3900QPOO 



39000300 
39000i|00 
390 005 00 



39000600 
39000700 
39000800 



39000900 
390G1000 
39001100 



39001200 
39001300 
39001310 



39001320 
39001330 
39001340 



39001350 
39001360 
390Q13ZjQ,. 



39UUU00 
39001500 
3 900 -1-6-0X1- 



39001700 
39001800 
39001000 



39002000 
39002100 
39002200 



39002300 
39002^00 
39002500 



39002600 
39002700 
39002800 



39002900 
39003000 
39003100 



39003200 
39003300 
39OO 34O Q 



39003500 
39003600 



END ALL cases; 
EXITIENO CHANQI NAUE; 39O03600 

PROCEDURE M0NIT0RR(LCW*A); BOOLEAN lCw; AWRaY aCU]- " Z'krZkiwi 

%****************ifk-ki,i,**i,i,i,i,i,-ki,i,i,i,-ki,i,i,i,i,i,i,i,^ 

B£(^IN 



REAL pc^word; 

LABEL exit; 
TEMP t» ^8 



-* 40000100 

*************** •4************40000200 

4 000 0300 



40000400 
40000500 
4Q0QQ<SOn 



CASE DOING OF ^^ ^ ^^ 

J^^^'^ 40000800 
** »' • » ' » t. .. > 40000900 



40000700 
40000800 



BEGIN X CASE 0- SYNTAX CHECK 

PC l« AC SREil»BASE»AtBASEl 3, 1111153 ; « PARAWfTER COUNT 

WORD »« AC5E£6l»SfiEGtlJ; XFIRST PARAMETER , 



40001000 
40001100 
40001200 



V~l« 



T 

2 

3 

4 
5 

6 
7 
8 
9 

10 
11 

12 

13 

14' 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 i 

30 

31 

32 ( 

33 

34 

35 \ 
36 
37 

36 { 
39 
40 

41 4 
42 
43 

44 f 
45 
46 
47 
48 
49 
50 

51 
52 
53 I 
54 
55 
56' 
67 



f] 



IF PC NEQ 1 THEN X wRGNG NOMBtH uF PAHAmLTLkS 
BEGIN 
IF PC°Q THEN G0FRHC'TIL.£NAM%6J; % FILE NAi^F t:i^QUTHH) 

ft nr DO / uinon . a \ 9 « ti i i-nAt ci a u a ^ir Tr- ri 



g0errcw0r0#8); x ilueual pahamtter 
end; 

IF W0RD.C3»33*0 THEN GQERRC WQRO, 8 ); % NGT A FILE NAMF 



400U1300 
AOOOUOO 
40 Q 15QQ 



IF W0RD,C3«3] GTR 6 THEN GUERH C wO RD» 4i; ) ; » 6 CHARACTERii MAX 
IF FlNDAW0RO(WCRD*REj>^KDTABLfc:[l]»KUMUFRES>yKUS) NEQ THEN 

rinERR(wnRn»;;9); 



aoooi60o 

40001700 
4Q001flQQ 



ACBASE] t 
AC8ASE+1 J 



40001900 

40002000 
4Q002100 



WORD »» WURD.C6J423; % STORE FILE NAME ^wwws^wu 

»«= AteASE + 2] t* O; X RESET EVENTi* COUNTER AND ERR. LOG, 40002300 



FIND(LL&IAMC 33141 17 ]^0*WORD#UaERCQO£*LSF RCtjnFU 

FIND(LL&lAMt33J4U7]*0,waRD.C6'36]/U5ERCQLE,uSt 
DOING t= i; WAITFUR := lAM/ 



DOING t= i; 

end; % CASE 



RCODE^; 



40002200 
40002300 
4Q0Qg4Q iL 



40002500 
40002600 
4000 27 00 . 



BEGIN % CASE 1 - 
IF EVENTSII] 6EQ 



RESULTS OF DIRECTORY SEARCH 

THEN * FILE WAS IN DIRECTORY 



IF AtBASE+lj'O THEN X THiS lb FIRbT FILE FOUND 

IF ACBASE + 2]=0 THEN AC BaSE + 1 3 I = At 6 ASe J ^ SUUKcE VERSION 

ELSE A[BASE*n»=ACBASE].[6t36]; % OBJECT VERSTDN 



,40002800 
^0002900 
40003QQQ 



LUJL wt.Dwaii*jL J ' =ftv.pfl3L J . 10 ' JO J/ it UDJLCT VC-KSTUN 

IF ACBASE+2] J^AcBASe+23+1 LSS 2 THEN WAiTfORJ«IAM ELSE 
IF ACBASE + n NEQ THEN G0tRRtA[BASE + n#33 ELSE 



4C003100 
40003200 
40003300 



BEGIN 



■^Vr" *lt ___^ , 

MAKEFlLE(LL&IAM[33J4i: ^Jfl>A[BASL]fUSEHCDDt'6#200); 
nn r Kifi t --3 ' ui * t t l- n n • .. t .-. u . 



40003400 
40003500 
40003^00 



D0ING!s2; 

end ; 



waitfor; sIam; 



40U03700 
40003800 
40003900 



% 



end; % CASE 1 40004000 

**•*•*»»**»**»»*»»•»**** *»»***»*»,tm»t»»» »»,**,»**»,»»,,, ,^t,^,,,f,^I^OO0HlQ0 

BEGIN % CASE 2 ^ ADJUST NFM FILE HEAHrR 40004300 



IF EVENTScn = THeN G0ERR("NU diSK",46); 
LLDl3KREAD»=AtBASE+l j:sEVENTSC2]; % HEADER ADDRESS 
DOING := 3; WANT »= >/DISKREAD; 



4Q Q 4 P 
40004300 
40004400 
400045Q -Q. 



ENO; X CASE 2 40004600 

«•• <!•••••••••*••.•.•#*••••••.••••*•••« •••••>•*•*••*••.• • « ••*«•••.••*, 40004700 

BEGIN X CASE 3 « HFADFR In CORE 40004ftQQ 

WORK[0]:*iO & 30[30:36:i2] & 3OOC l5: j 3: ib J & l0Cl»34!i43; 40004900 

WORKC 3] . r?n ft 1 t= 7s t 5^AWP-- (rucrna «./>/(ac,,^^ 



WORKC3],C2»ie3 := 7; % SAVE FACTOR 
WQRKE73 Is -.ij X Enr PQtntER 



WQRK[93,C43JSJ «» 20; X NUMBER OF ROWS 
OISKWRlTECAtBASE + m; X REPLACE HEADER 
LLDISKREADKUSFRLOCi X USFRS/CANOE HFi-QRD ADDRESS 



40005000 
400Q51QQ 



40005200 
40005300 
40005400 



40005500 
40005600 



DOING i9 4; WANT «= s^DISKREADi 

end; X CASE 3 

*'**■!!*** ' **** ' *' * '* « » * » ««« « *« ttttittti f««.«...«..^t«»t '*'**>'»40005700 

BEGIN X CASE 4 • ilSFRS/r.AwDr WEPflfiD Ik* rflHfc 40005800 

40005900 
4000 61 00 . 



!. »■ ■ ■ ■ ■■■■■■* ■.-■ ■■■■■■f^B^ffiy 

BEGIN X CASE 4 • USERS^CANDE HECOROU** CORE 

MONiTORBiT i« True; 

WORKC123 I* AlBASE]; I MONITOR FILE NAME 



DISKWRITE(USERLOC); % REPLACE RECORD 
lAM Js 0; 
end; X CASE 4 



End all cases; 

EXiTt 

END PROCEOURE MQNITORR^ 



40006200 
40006300 
40006400 

400065Q0 
400066Q0 
40006700 



tNU PROCtOURi. MQNITORR; 40006700 

PROCEDURE SETIT(LCW,A); BOOLEAN LCW; ARRAY AL0]i 41000100 

BEGIN h * nnh*te\r\ 



BEGIN 

REAL NC*PTR#WORD^MAXPTR' TYPE* SETHI T#X; 

LABEL CASE2>EXIT; 



41000300 
41000400 
4 1000 500 



1^ 
H 
3 
4 

si 



9 
10 
11 
12 



15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 I 

27 

26 

29 ( 

30 

31 

32 \ 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 

44 1 

45 

46 

47 I 

48 

49 

50^ 

51 

52 

53 f 

54 

55 

56 1 



m • 



h 



10 

I 11 

12 

13 
I 14 

15 

16 
1 17 

18 

19 

20 

21 

22 

23 

2* 

25 

26 

27 

28 

29 

90 

31" 



I J2 
33 

34 
35 
36 

37" 

38 

39 

40 

41 

42 

♦3" 

44 

45 

46 

47 

48 



49 
SO 



52 
53 
54 

55 
56 



DLKlNE ERR(ERR1*ERR2*ERR3)= 

BEGIN 
ERRSW »« ERRl & EHR2 [ 1 ; 4!^ ; "SJ ; MSGPJR ?= F.RR?/ 



verror; go to exit; 



lAM r 

£ND#; 
* 



41000700 
41000600 
41 00 09 QC 



41001000 
41001100 



CAJJE DOING 
BEGIN 
% 



OF 



■ t t «»t«t«»«f»t<f *««»»«.««««»««.««....... .......«. .^41 004700 



begin % case - syntax analysis 

ptR»»workaors; maxptRs«workendaurs; nc»«c; % setup 

while (typ£t«scan(ptr*wobq#^9"«maxptr*x)3 neci 5 do 

nr c T M 



-JLJj.,.f. 



41004900 

41005000 

,41005100 



BEGIN 
IF TYPE 
— REG IN 



41005200 
41005300 
»lO0540 iL 



NEQ 1 THEN % NOJ ALPHA STRING 



UC 



ER«( WORD* WORD . tl 153*0 )> 

end; 



» INVALID IF NOT SPO AND NUMBER 



41005500 

41005600 

-JHQQ5610 



iMuai. 



MATCH(WORD*"S£T ") SETBlT := 1 
ELSE MATCH{WDRU»"HESET ") SETfilT 
ELSE MATcH(WQRD/"caNrlSL ") 



41005700 
41005710 
4 100573-0- 



s = 

CONCISERIT t" S^THlT 



.ELSE MATCH(hORD#"HELPFgL") HElpFulbIT t* 
ELSE MATCH(W0R0» "QUICKLY") SlU ICKLOqB IT* 



SETS IT 
SETS IT 



41005800 
41005900 
41006000 



Fl SF MATrNfWni?n.»aiiIrttHY'»l QIITrKBY pRTf >g SpTpTt 



ELSE MATCHCWORD^'MMUSTOP ") 

BEGIN NOSTOP»=BUOLEAN(SlTbIT); Iam:=0; gq EXIT; 

ELSE MATC M(WPRD>"AI LOWMb'M Ai. l GWM.SfjH T r i g.SK JH f T 
^ELSE -■' ■ ■ - - - 

X 
JL 



41006100 
41006200 
4lQ063jDn- 



END 



MaTCH(W0RO*"FREEFIL«) U|mL0CKTQG6LE««SeTBIT 



41006400 
41006410 

-jaiaiiL^0J3-. 



IF 
IF 



ELSE MATCHCWCRD^-MGNI rUrt") 
ELSE ERRCWORD'/^e); 
FND WHTI.F STATFMLiVT? 



Go TO CASE2 * iJET/RESET 



41006600 
41006700 
4 1006600 



NC LSS 2 THEN ERR (•• INCMPLT"* />8) ; 
SCHEDULlNE THEN 

BEGIN ^^_^_______ 

IAMJ=0; WRlTEAi>TEHlSK5=TKUt> 



MUNITOH FILE41006900 
41007100 
41007200 



41007300 
41007310 
4100 7320 



END 
BEGIN 



ELSE 



LLDISKREA0 »»? USERLOCi 

WANT t» voiskread; 

DOING Ig 1; . 



» USEHS/CANOE RECORU ADDRESS 



end; 

END CASE 



41007330 
41007340 
,41007 350 
41007400 
41007500 
41007600 



0; 



BESIN X CASE 1 • USeRS/CAnOE ftECORD IN CORE 
WORKCU] i» OPTIONBITS; % PUT NEW SETTINGS IN RECORD 

oiskwritecuserloo; % replace users/cande record 



lAM := 0/ 
WRITEASTERISK 
END CASE 1; 



41007650 

41007700 

.41007600 

41007900 

41008000 
41006100 



«= true; 



41008200 
41008300 
41008400 



*■•««•§« (fat* «'«••••• »t**'*tf*»»4»** '•••••• *..« •••#*••*(••««« 

BEGIN X CASE 2 • MONITOR SET/RESET REQUEST 
CASEat |F NOT BQOLEANCSETBtT? THEN it RESET MONITOH 



BEGIN 
MONITQRBIT 
lAM t» 0; 



«= false; 



WRITEASTERISK 

GO TO exit; 
end; 



»* true; 



...•,,.......41008500 

41008600 

, 41008700 

41008800 
41008900 

4100900 



41009100 
41009200 
41009300 



11^ 



6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 ' 

21 

22 

23 ' 

24 



27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 I 

36 

37 

38 ( 

39 

40 

4 J 

42 

43 

44 ' 

45 



47 
48 



11 



49 
50 < 



52 

53' 
54 
55 
56 < 
57 



N 

2 

3 
4 
5 
6 



7 
8 
9 
10 
11 
12 
13 
14 
,'15 

lie" 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



32 
33 
34 
35 



36 

37" 



38 
39 



40 
41 



«2 
43" 






44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
S4 

;s 

96 
57 



LLOISKREAD «* USt:KLOC; % USEK^/CANOt KtCUHU AUUHLSb 

WANT J» VOISKREAD* 

DOING »g 3; 



END CASE 2; 



41009400 
41U095CO 



BEGIN % rASF 3 m llSrHS/rAMO F HErnRH TK rnRt. 



IF W0RKC12] = THF.N fjHH ("HON , F lu" , 7* 2 j ; * NQ FILE NAME LISTED 
AC8ASE] «5 WORKCU]; % SAvt MUNITUR FRF NAME 
FlND(LLSlAM[33:4i:7 ]#0^ACBASEJ^USFRrUpF/UaLRcunt-); % SrARrH 
TEMP »B 21 DOING Js 4; WAITFOR Is IAM; 



41009700 

,41009800 

aiQG9Qnn 



41010000 
41010100 
41010P0Q 



END CASE 3; 



I » ■ » » « » 



BEGIN 



»»««»« 



% CASE 4 - RESULTS OF" UlHtCTOHY SFAkCH 
IF EVENTSCU 
MQNiraRRTT 



LEG THEN ERR(ALBASt3^6.i:!); 

i= TRiiF.; 



LIT0UT(A£BASE3#N8CRLF); LITUUTC" MOM TR"» CRLF j; 
IAM Is 0; 

END CASF m ^ 



END 

E xn? __ 



41010300 
41010400 

*«» »«i»t>» 4 IQ I O 5 OO - 

41010600 

NCT ON DISK 41010700 

ji: 



41010900 
41011000 
41011100- 



ALL cases; 



410J1200 
41023300 
4102 3400- 



END PROCEDURE SETiTi 41023500 

PROCrnilRE SSFT I F(l CW. A T J Rfi niFAM \ C . ^ i ARRAY ^fpl^ 42"00100 



BEGIN % PRINT CONTENTS OF SFEClFItU MlE ON TfciRNilNALS 42000300 

REAL I*LIN^PC>RFKS^LINMAX,^nRn>MAXSHEf.; UyOOQaOCi 



LABEL EXIT; 
CASE DOING OF 
BFGIN 



BEGIN % CASE - SYNTAX ANALYSIS 
IF LL NEQ THEN Gof:RK( "5SF I Lt ", 
SREG ;a BASF - ATBaSEIJ 



42000500 
42000600 
h?QQQ7.ClA 



13); 



PC «» ACSREGI.C18M53; MAXSrEG Ss sreg + PC; 
ACBASE+3] l« 999; % FLAG FOR LINE NUMBER INPUT 
FOR SREG »» SREG»1 STEP 1 UNTIL MAXSHEG CO 



42000800 
42000900 

4?Qoinfln 



BEGIN % PICK UP 

WORD:aACSRtG]; 

IF WORD.Cl >51 = THLN Jt 



THE PAHAMETLRS 

LINt NIMBEH GIVEN 



4200U00 
42001200 
^2001300 



BEGIN 

IF WORD GTR MAXLlNfcS THEN GOERRC'NOT 



42001400 
42001500 
42001600 



ON "/S); 



IF LINECWORU#UCLOC3=0 THEN G0ERR("N0T On 'Se); 



ACBASE + 3] :s IJOHU; 
END 
ELSE IF WQRD.[3;ji-J GTH 



42001700 
42001800 
42001900 



THEN % FILE NAM!-: 



BEGIN 

IF (REKSI«R£KS-^1) GTH 2 THEN GOERR(WQro,8); 

ACBASE*REkSJ :« WQHD.E6842]; 



42002000 
42002100 
42002200 



END 

ELSE IF WORD NEQ "/" 
END FOR statement; 



42002300 
420G2400 
420025QQ 



THEN GOERRChUKD^S j; 



IF reks NEQ 2 then GQERRC^FR NAM"*8); 
FIN0(LL4lAMt33l4U73*0#A(:BASi*n»AtBASE+23'''SlTE 
TEMP »a 4; O0ING »« 1; WAITFOR ** lAMj 



42002600 
42002700 
^2002600 



); 



END CASE 0; 



42002900 
42003000 
42003100 



BEGIN % CASE 1 - RESULTS PF DIHECTUHY SEARCH 
IF EVfNTSlU LSS THEN X NOT ON OISK 
• BEQIN-V'"^ 
wqRKE03igACBAS£-^33; WORK I iJ < « ACBASE^-23 ; 



42003200 

,42003300 

420U34Qn 



42003500 
42003600 
42003700 



1^ 



1 
2 
3 
4 
5 

6 
7 
8 
9 

10 

11 I 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 4 

27 

28 

29 4 

30 

31 

32 < 

33 

34 

35 < 

36 

37 

38 ^ 

39 

40 

^A 

42 

43 



44 
46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



• 
• 



>r 



1 

2 
3 
4 
5 
6 
7 
l8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
Z2 



23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



40 

41 

42 

43' 

44 

45 



46 
47 
•8 
«9 
50 
51 



52 
53 
54 



55 
56 



WGRK[2]5=" NOT ON"; WORK [ 3 J J = "D I SK 
FOW H«0, 1*2*3 DO BLANKtWUhKnJ ); 

TwxnijT(i„itwcRKrn]»3?*Uf 



I AM 1« OJ 

GO exit; 
CNn IF Nn 



FiLEf 



LLDISKREA0«eEVENTS[2],Clti:15]' % HEADEH ADURLSS 

WANT := VDISKREAO; 

nUlNfi \= ?.} 



42003800 
42003900 

a s ooaooo - 

42004100 
42004200 
42004 300 



END CASE I) 



42004400 
42004500 
4200^600- 



42004700 



42UU4700 

BEGIN JSrASF ?» HFAnrW TKif-nKE /.g nn^nn 

42005000 

42005100 

— -4;3Q052fln 



o&M*ii a uHtfr , r , — a nr huc n 1 m Lunc 

IF (SP0CNTRL»sWCRKl7l + l) GTR ( I ! = I^GRK L 8 J x3 ) ThEN SPCCNTKLJ = I; 

TF CACBASE] IsKCRKtlonsO OR SPUC|ViTRL = THEN % NO RECORDS 

BEfiiN HMj«c; &n Dim iHU; 



IF 



AIBASE+I3t«0; » INITIALIZE SEGMENT POINTER 
LLOISKREAO l» ACBASE3I X ADORi&S OF FIRST SEGMENT 
WANT t* vnlSKWFAn ; 



DOING «= 3; 
END CASE 2; 



42005300 
42005400 
4P0Q5SQQ 

42005600 
42005700 



* t t » ft t » « ^ t * t f t t « 1 1 » f t ■ f t t t t ■ t t ' f » T * t ♦ . t .t«« f . . . ^ f . ^ f , , ^42005fl00 



42005900 
42006000 
4 2006100 



BEGIN X CASE 3 - READ DiSKflLE 

ACBASE+13 f» ACBASE+n + il % INCREMENT SEGMENT COUNTER 
REKSt*lF (SPQCNTRLi*SPQCNTRl*3J GEO THEN 3 Fl SE 3»SPQCnTRi 1 
LIN := 1; LINMAX :s MaXLINES; 42006200 

IF ACBASE + 33 USS V99 TH^N L JN J =L I fvM AX ; s A t B AS t + 3 J ; % NUMBER GIVEN 42006300 
-£ QR lINis i lN STEP 1 UNTTI L INMAx n u IF i I ^£ f 1 TN. . .,r.| nr ] MFC n ThFNi a3QQ6/inn 
FOR I_»»l STEP 1 UNTIL RE(<S DQ 42006500 



IF I si THEN TWXnUTtLlN*W0RKC00]*72,l) ELSE 
IF T»P THFN TWXnUTfl TN>wDRKrinl,7g.O Fl Sg 



IF 1=3 THEN TWXOUT(LlN*WOHKt20J*72*l)/ 
IF SPOCNTWL LEG THEN % END Of FILE CR DISK 
BE GIN TAH«~C; GO EXIT; END> 



42006600 
42006700 



ROyv 



END 
EXIT! 



LLDISKREAD !» ACBASEJ 
WANT l» VDlSKREAO; 
END CASE 3; 



♦ ACBASE+1]; X NEXT SEGMENT ADDRESS 



42006800 
42006900 
42007000 



ALL cases; 



42007100 
42007200 
4200 7 300 



END PROCEDURE SSFILE; 



42007400 
42007500 

^ . . . . - '^'' ^^-t^f 42007600 

PROCEDURE EQUATE<LCW*A); boolean LCW> array Atoj; 43000100 

BEGIN 43000300 

REAL I'K*W0RD»UNIT*TYPe:,nAM'NAM1*NAM2*VERBV*mAXSrEG#EUVAL; 43000400 



BOOLEAN DSK#8KuP»ECLT0G*FlLTQG,LlBT0G#CH£CKTYHE*QU0T»0l*a2; 

BOOLEAN formtog*^olab£l#fastog#slowto6*eutog; ^ — ^"^ — 

LABEL ERR# CHECK, EXIT; 



43000500 



43000310 
43000600 
43000700 



wwDci. 6.nn» vntvn, tAtll 43U00600 

DEFINE ENTRY • ACBaSE»iJ«> ThISESP * ACBaSe-^2J#; 43000700 

X #*...* , 4 3000600 

STREAM PROCEDURE F ILEIOC aDRS, AR AY* M AX ) ; VALUE AORS.MaX; 43OOO9OO 

*-••■ -- - .43001000 

43OOUOO 
43001200 
43001 3Qn 



BEGIN 

SIIbAORS; DI»»ARAYJ 0It»&l4U 

MAXfir SC»ALPHa THFM BFGTM OSIaCHRl TALLYt»TALLY»U END 

ELSE DS:«LIT" ••); 
ADRSJ = TALLY; SI»si.cC ADRS; 5I«aSI*7; Dl: = ARAYi Ds:=ChR; 
END STREAM PROCEDURE FiLEin; 



CASE DOING OF 

BEGIN 

BEGlM « (;asf n 



43001310 
43001400 
43001500 



!««««. «««.«..... 



43001600 
43001700 
ttti*n«ititi «, «if««ttt»«». >.««.«.... ..« .43001B00 



1^ 

2( 
3 
4 
5( 

6 

7 

84 

9 

10 

111 

12 

13 

14 < 

15 

16 

17 4 

18 

19 

20 i 

21 

22 

23 % 

24 

25 

26 4 

27 

28 

29 t 

30 

31 

32 % 

33 

34 

3b| 

36 

37 

38 % 

39 

40 

41 

42 

43 

44 

46 

46 

47 

46 

49 

50 

51 

62 

53 

54 

65 

56 

-5? 



m 



h 



1 

I 2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

^*_ 
16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

92 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
«2 
43" 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
S4 
55 
56 



LAbEL wait; 

IF NOT CONTINUEBIT 
HECiIN 



THEN % FIRST CALL UN THE HUuHNE 



CONTINUEBIT J» TRUE) 

FIRSTESP««THISESP«*!tStlJ % SAVE FIRST ESP HECORO ADDRESS 

ENTRYfO; TEMPt«3; f!LFAR( I 10 1*29 ) ; I T 1 a T 8 a3'M a" i 



43001810 
43001900 

fl3Qn?;ono 



SREG IS BASE - ACBASE3; 
END % IF FIRST CALL 

ELSE 



MAXSBE-G 1= SRtG + A t SR£G 3 , C 1 8 > 153 ; 



43002100 
43002200 
43002^00 



BEGIN 

BASE »« BASE + 3^ * SHIFT UP TO SAVE STACK VALUES 

S CANNERf WORK ADRS> At *3>lCW«Wn«KEKin APRS V; 



43002a00 
43002500 
43QQ2600 



BASE :» (I»=BASE) -3/ % RE-ADoOSf BASE FOR THIS PROCEDURE 
IF 800LEAN(ACn.tl7:n ) THEN % ERROR DURInG SCAN 
BEGIN 



43002700 
43002800 



IF 



WORD 18 ACI+23i MSgPTR «» 65; GO TO ERRi 

end; 

(TYPEfACn.r3t33) NEQ 1 THEN Ji NOT A VERB 



43003000 
43003100 
43003200 



BEGIN 
IF TYPe*0 
■ I F TYPF''4 



43003300 

43003400 
4.10O35OO 



BEGIN 

base»s.i; 
end; 



OR TYPE*b THEN 
THEN % S SMS G 



GO NAIT; % CCiMMeNj OR NULL 



43003600 
43003700 
43QQ3a0n. 



ssmsg; BASE»»I-3; litoutc"* 



"*U; GQ WAIT; 



WQRDtslF TYpE=2 THEN A[I+1J 
MSGPTR «» 65; GO TO ERNi 
end; % IF NOT A VERB 



ELSE ALl+23; * NUMBER OR SpEC CHR 



43OO39OO 
43004000 
a.-jOQ4inn 



IF (VERBVlsAn + n.C40i8]} = VEXLCUTE THEN 
MATCH(VERBTABLEtAtI + U.C9:93KC6:42)*''CQMPILE") 
BEGIN 



43004200 
43004300 
43004400 



ELSE 



PARAM »s ACI + 13,L1$« 153*1> lEMP «= i; 

M0VE(PARAM+1, WORDS, A[n.AtbASE3); * SHIFT LEFT FOR "EXECUTE" 

WANT t= VERBV; JAM ;= Oi CuNT 1 NUEB T T ; c:F AL SF ; 



43004500 
43004510 
430Q4fiQQ 



DOING 
GO TO 

end; 



j» a; 

exit; 



43004700 
43004800 
4,^004900 



IF VERBV NEQ VEGUATL' THEN % WKUNG VLKH 
BEGIN 
WORD »» VERBTABLELAC I*1J,['>«9] j; MSGPrf< 



43005000 
43005100 
43005POQ 



65 



JL 



GO TO 

end; 

ENTRYae 



err; 

THEN % STARTING NEW SEGHFNT 



43005300 
43005400 
43005500 



BEGIN 

DISKWAITCWL/30»THISESP); 
LC29];gESr3^^ * F3T A BUSH LI N K 



43005600 
43005700 



D1SKWAIT(0»L#30#THISESP); 
CLEAR(LC0J#29); Lt 143 J a3"14"; ^ 
THiSESPtw ESPi; 1 ADDRESS OF NEXT 



TQ N r XT Sb fiME NT 



43005900 
43OO6OOO 
4 3 061 00 



SEGMENT TO BE USED 



END i IF ENTRY » 
ELSE DISKWAIT(1,L'30^THISESP)/ % KE(;uvER PHtVlQUS VALUES 
SREG :^ 1*\} MAxSHFft 1= SR l-:G-t- A L SR I- G J . f 1 8 ; 1 5 J ; 



43006200 
430G6300 
430064Qn 



end; % IF NOT THE FIRST CALi, 
-•*•«•••••»•••••••.*••••••••••• t 4 * •> • .:• ■.• t ••'.***• ^ Y H T A X 

UNIT I* 121 MSaPTR ».« a; FILTQGt-TRaEJ EUVALig^ll % 



43006500 
43OO66OO 
4 3 0Q6 7QQ 



FOR SREG 
BEGIN 
LAa£t_ 



|s SREG ♦ 
% EXAMINE 

Ai ph; 



1 STEP 1 uNrlu 
INPUT STRING 



MAXSMF.G DQ 



43OO68OC 
CHECK, ,. ,., . , . , , . ,43006900 
INITIALIZE VALUES43007 Q00 



*••••**•••»*••*«■• 

WORD f« ACSREQ]; 

IF QUOT THEN !t QlJQTrn ST^TNfl 



43007100 
43007200 
43007210 



.»....,.».,, .NUHEHIC. .. • 4 • • • **•...,•.. ,43007300 

43007400 

. _^^.^.^_____ ^_.^ ^ fl3QQ74in 



d 



3 

4 
5 1 

6 

7 

8 ( 
9 
10 

"I 

12 

13 

14 ( 

15 

16 

iH 

18 
19 
20 ( 
21 
22 
23 ( 
24 
25 
26 ( 

28 
29 { 

30 

31 

32 i 

33 

34 

35 { 

36 

37 

38 4 

39 

40 

41 < 

42 

43 

44 I 



47 I 

48 

49 

60 I 

51 

52 

53 ( 

54 

55 

5e( 

.5 



8 
9 
10 
11 
12 
13 
M 

>S 
16 
17 
IS 
19 
20 
21 
22 



24 
2S 



26 
27 



28 
29 

90 

31 ^ 

92 

33 

34 

35 

36 

37" 

38 



42 
43' 



46 



«9 
50 



52 
S3 



54 



55 
56 



BEGIN 

IF QUOT AND 
BEGIN 



(EQLTOG QH LI8TUG) THl\ % ALLOW QUOTED STRINGS 



F I LEID« SC ANPTrC SREG-S8AS£ 3 * HORO » 7 ) I 

MSGPTR !■ 66; 

I M SCANPTRtSREG'^SBASeJi SHEG t* SHJG * i; 



i!l3007500 
43007600 
rt3Juy605- 



WHIlE SREG tSS MAXSRtG AiNO AC SRLG ] . L 6 :a2 J NEQ 

SREG «= SREG + 1; 

K *' SCANPTK[SREG-SBASE]i 



43007610 
430O7615 
a3Q076PQ 



DO 



IF ACSREGJ.C6I423 NEfi """ OR 
(K.t33li5]»I,t33n5nxe*tKa30»3]-I.C30J33) GTR 7 THEN 
GO TO err; ^ 



43007625 
43007630 
■43 007635 



GO TO alph; 

END ELSE GO 
END ;i^ IF QUGT 



43007640 

43007645 

-4 3007 650, 



TO err; 



* • • • 
ELSE 



43007655 
43007660 
4 3 007 662 



IF WOROf ti JSJsO THEN 



» UNSiGNEO NUMBEf< 



RFfilN 



IF EUTOG THEN 

BEGIN 
IF (EUVA L:' 



•*(**t»«*<t»**»****««*43007664 

43007666 
43007666 



END 

ELSE GO TO ERRi 
END % IF UNSTGNFn 



i^QRP) GTR 1 ^ The;, G C TO £Hr; 



43007670 
43007672 
.A2MlhlA 



numBeji 



43007676 
43007678 
430077Q Q 



% , 

ELSE IF W0RD.[3;3J 
RFGIN 



AL^HA... 4 300 7 600 

GTR THEN * ALPHA STRING 43007900 

4 30Uft000 



ALPh: WORD J« <NAKjsW0RD)rC6l42]; 

IF FILTOG THEN * LOOKING FOR INTERNAL NAME 
REfilN 



43008100 
43008200 
43008300 



FlLElD(SCANPTR[SREU-SBASt.],LtEMRY + 4 J,63); % INTERNAL NAME 43008400 
FILTOG J= false; 43008500 
END % IF FILTOG , 43Q0860Q 



ELSE IF EQLTOG THEN % "•" P«ECE«OEO THIS WQRO 
BEGIN r 

lcentry»i];»wqrd; ^ 

NAM2««NAy; L[ENTRY]J*0; » ASSUME E'^iTHY jS FID 

EQLTOG Js NUTCCHECKTYPE JSTRUE); 

IF QMOT THE N 



43008700 
43006800 
43 00 690 



BEGIN C2»*TRUE; 
END X IF EQLTOG 
ELSE IF LIBTD6 THEN % 



siuotjsfalse; end; 

"Z*^ preceVded this word 



43009000 
43009100 
4300911Q. 



BEGIN '\ 

LCENTRY] J=LCEnTRY+1 j; NAMl :sNAM2; 

LrENTRv-mtB^nRp; nam?;=namj 



43009120 
43009200 
43009300 



(;:i::=Q2; 



LIBTOQ l» false; 
IF OUOt THEN 



43009400 
43009500 

4 3 0096 00 



QUQTtOFALSEi FNDI 



END % IF LIBTOG 
ELSE IF CHECKTYPE THEN 
BEGIN 



43009700 
43009710 
430097 20 



% CHECK HARiJ^aRE TYPE 



MATCHCWORDf^BACKuP 
ELSE MATCH(WOR0#"8ACK 
BEG IN 






bkupj»true 



43009800 
43009900 
43010000 



IF SREG LSS MAXSREG TH£N 
IF A[SREG+l], t3»3J»2 THEN 
MATCH(ACSREG-H]a6>4iJ]»"UP 



43010100 
43010200 
4 301030Q 



\ 



BEGIN 

bkup«»true; 
end; 



43010400 

43010500 
43010600 



SR£fi»»&REG+i; 



43010700 

43010800 

43010900 



N 

2 
3 
4 
5 



END % IF "BACK UP" 
ELSE MATCH(*vORDj."REmOTE 
ELSE MATCH(W0F(D>"DISK 



") 



UNIT : = 14 



A3011000 
^3011100 



BEGIN 

UNIT«»IF BKUP THEN 

BKUP Is FAt SEJ 



IF UNlT-0 THEN 22 ELSE 15 ELSE 12^ 



43011300 
'laOllflOO 
43011500 



END 
ELSE MATCH(WOK<0#"SLKlAL ") UNIT 
EI SF MATCH C»<QR0.[6>3Q3*"'^PINT^V) 




43011600/ ^ 
43011700/^^ 
43011800 




7 
8 
9 

10 
11 
12 
13 

14 

115 



ELSE MATCHCWORD/WPUNCH 
ELSE MATCHCWORO*''CARO 
ELSE MATCH(WORDf'«RANDOM 






_J_ 



UNIT !» 
UNIT J» 
UNIT >a 10 



43011900 
43012000 
43 01210Q 



ELSE MATCH(WQRD*"UPDATE 
ELSE MATCH(W0R0*"PAPER 
ELSE MATCH(^ORD*"SPa 






ELSE MATCH(WORD*''FAST 

IF SLDWTOG THEN GO 

EL SE M A T CH(WORD y" S I,QW 



UNIT != U 
UNIT := 7 
UNIT >= 11 



ERH ELSE 



43012200 
430i2300 
43 012 40 Q 



FASTOGisTRuE 



t» 



1 



43012410 
43012420 
4 30124 30- 



16 
17 
18 
19 
20 
21 



IF FASTOG THEN GO ERH El5£ SLDa TuG J sjRuE 
ELSE MATCHCWORD^^EU ") tUTOG!=THj£ 
-EtSF MATCHCy<(lRni"TAPE !U 



43012440 
i*30l2«50 
43012500 



/t 



BEGIN 

IF UNIT NEQ 7 THEN 

tJNI Tny lF BK UP THFN 



X Paper tape 

I F UNI Tan THFN 



ao f:lsf 6 elsf a? 



43012600 
43012700 
43012600 



22 
23 
24 



BKUP := false; 

END % IF TAPE 
FISE MATCHfWnRO. "FOhM 



) FURMTQG8 = TRUi-: 



43012900 
43013000 
4 3 1 3002 



25 
26 

"!:,■ 

28 
29 

90 



ELSE MATCH(wORD,"NOlABEu") 

ELSE MATCH(W0RD*"C0PY ") 

BEGIN ^ : 



N0LABEL»»TRU£ 



43013004 
4 3013010 
43Ql3niS 




IF UNIT = U THEN UNn!=»ii2 ELSE * PuNcH TO PUD 

IF UNIT/^THEN UnIT:=o ELS£ 14 TAPL TO PBT 

IF UM-f=Tp)0R UNIT=12 ThEN UNlT> = lb; % PRtNT TO PBD 



43013020 
43013025 
4 30 Z3 03Q 



31 

32 

93 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 ~ 



IF SREd-iifSS MAXSrEG THEN 

IF {WCRD»*ACSREG+U),Cir53»0 ThEN 

TF t^QRn LFQ ?S6 THFN 



43013035 
43013040 
4 30130 45 



BEGIN 

LCENTRY + 3].C15!8J «= 1^0RD-REAL ( WORD NEQ 0)i 



43013050 
43013055 
4 301 30 6 



END 
ELSE 60 err; 

END 



43013065 
43013070 
4 3 1 3075 



ELSE GO err; 
END % IF CHECKTYPE 
E LSE G Q err; 



43013100 
43013200 
43013300 



45 
46 
17 
t8 
49 
50 
51 



END X If ALPHA STRING 
ELSE ■• 
X»» »»»>»»»*»« * « « « » « . » » » I » i I * »:» »»« .»»«■«« SPEC I AL CHR« * « » «i * 



1 1 1 1 » » 1 * t 



43013400 
43013500 
43013600 



BEGIN 

IF WORD s "s" THEN EQLTUG 5» NOT EUTGG 

ELSE IF WORD="/" THEN LIBTOG := TRUE 



ELSE IF WORD*""" THEN QUOTS'TRUE 

ELSE GO err; 

end; XlFSffECiAl. CHARACTER 



43013700 
43013800 
430^3900 



43013910 
43014000 
43014100 



52 
53 
54 

55 

56 



END WHILE statement; 

X • . t . . ,Ei\ij Scan, 

IF not CHECKTYPE THEN % INCOMPLETE REQUEST 



43014200 

,43014300 

43014^00 



*5Z. 



BEGIN 

WOROts^'INCMPLT"; MSGPTR Ib 66; GO ERR; 

end; ^ 



4 3014500 
43014600 
4 3014700 



m • 



h 



1 

2 
3 
4 
5 
6 
7 
8 
S 
10 
11 
12 
13 
14 
IS 



16 

17 

18 

19 

20 

21 

22 
I 23 

24 

26 
I 2« 

27 

28 

29 

M 

31 ~ 

32 

33 

34 

35 

36 

37"" 

38 

39 

40 

41 

42 



43 

I u 

«5 

46 

♦7 

«8 

49 ~ 

50 

51 

52 

53 

S4 

55 

56 



IF NOLABEL THEN 

UMT: = IF UN1T = 2 THEN 9 ELSE IF UNlTs/ THEN 8 ELSE UNIT; 
iiMITt=UNJT ^ RE fll ,f . rnHMTiUiH , 4^!^nn{ 



v i m A 1 1 -un^i tt ,, M t „» ,ii,, \ T u , i\n (, v .), a J t rt , «; , f , , *« f t t „ |, i 

LIENTRY + 33.C^2»63JsUNlTi LtENTRY + liJ3 I'Oi 
IF DSKI«(UNIT»10 OR UNIT»12 01 UlvlT»l3) THEN » DISK 
BEGIN 



n r u .1 m ^___^^ , 

IF LtENTRY3s0 THEN % MUST HAVl BOTH NAMES ^ 0« DISK 
BEGIN 
LCENTRY38«LCrNTRY^n; NAM1;snam2; Qi;=(j^; 



ICENTRY*13jsnAM2:suSERcOOE; 

end; 

IF NOT Q1 THFM 1 ivnt (JUnry S TR t Mft 



BEGIN 

IF (WORD:=LCENTRY] ). [4;iJ6J NEQ 

IF WORDir^tftl m.i,i ThLN 



THEI\ 



IF F 
BE 

end; 



BEGIN 
MSGPTR 

end; 



J» 42; GO TO ERR; 



mJ~f ^ ^ : — ^ — ■ ■, „ : . 

indaw{5Rdcnami*reswhdtableci3#mmofhlswrds) nes 
egin msgptk 5= 29; gq ig err/ t-nc; 



THEN 



IF EUVAt GEQ THEN Lt ENTRY+12 3 . [ 18 « b 3 » «EUV Al+1 ELSE 
if (FASTOG OR SLOWTOG) THEN 

LrFNTR¥*l?3.ri6t2l »« 1 * RF Al ( St nWT Ufi ) i 



end; % IF DISK 
DISKWAITC0»L»30*THlSESp); % wRjTt (JUT ThiS 6EGmEnT 
I F F NTRY = n , TH E N % STARTING NFW S EGMFkI ^ 



BEGIN 

ENTERESPCLL»THISESP,AC*3); CENTER SEGMENT ADDRESS IN TABLE 

IF RQ DLFANCFSPFI AG) TWFN J NO HODM fN F-^^PT Apl f: FHft TWTS pLTRY 



BEGIN 

'/<OR0»: 

FNn; 



i"ND RCCM"; MSGPTR := 04; GQ iHHi 



THISESP »« ESPi; ESPl :* GETESPOISK; EQUATED {= TRUE! 

end; % IF STARTING NEQ SEGMENT 

ENTRY ;g IF ENTRY«0 THEN lA ELSE O; it 2 EQUATIONS PER SEGMENT 

IF DSK THEN MATCH(NAM2.[6!423'US£r(C0Ct:) ELSE * QLTSlQE FILE 



BEGIN 



FlND(LLAlAMr33»4H73f 0/NAWl*NAM2>lSERcUr}E); 
A r la A « r 1 • ■■ ki A u 1 ! 



ACBASEIjsNAMi; 

DOING tm i; WAITFOR :s 

end; : 



iam; go to'^exit; 



WAITJ 

GO TO check; 

end; % CAS E 



43DH710 
43D14720 
43Qi.4730 



43014800 
430H900 
4^0 I I ^nnn 



43015100 

43015200 

JLiOAllOiL 



43015400 
43015500 
43015510 



43015520 
43015600 
430l')700. 



43015800 
43015900 
43016000 



43016200 
43016300 



43016320 
43016330 
4 3 a i6.1Ai3-- 



43016400 
43010500 
4;rl0l6600- 



43016700 
43016800 

4^016900 
43017000 
43017100 
43017200 



43017300 
43017400 
430175QQ 



4301760C 

43017700 
^3017800 



43017900 
43018000 
43018100 



43018200 
43018500 
43016600 



end; % CASE „„_„_^ ^ 43016600 

'*•**•••••••>••••••• ••*a*»t»»«* • • * t«»t«(«*i***t(*»*»«*tt«*tt*« «(«,», (,430187 00 

BEGIN % CASE I 'RESULTS OF DIREC TORY SEARCH 43018300 

IF EVENTSCi3 LSS THEN % FILE NOT IN DIRECTORY 43016900 

BEGIN 43019000 



BEGIN 

W0RD»sACBASe3; ^<SGPTR 

end; 



«= bf i uU TD ERR; 



CHECKJ 

ooiNG«"0; waitforisvinput; 

IF SCHEDULINE then REQUEST IP(IL 3 ELSE 



43019100 
43019200 



BEGIN 

I»»0; KJ=REAL(THINGSLINK); 

WHILE I LSS BEALCTHINGSTUUD) UU 



43019250 
43019300 
43019310 



BEGIN 

I,.«*l + .ll . 

I F T08E00NE t K* 1 6 3 » 1 1 6 17 3 « V I NPU T THEN 



43019320 
43019330 
43019340 



43019350 
43019360 
43019370 



*n« 



• • 




2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

r" 
17 

18 

IS 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 



31 

J2 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 



45 
46 
47 
«8 



49 

SO 



52 



64 
55 



56 
57 



BEGIN 

TOBEDONtCK* 16].C18S7Jt = VbQUATt:; 

lAM »= tNANT ;= yjAnfOR '. = O; 



GO TO exit; 
end; 
ki«tobedonei:k>0].[3<63; 



43019380 
43019390 
4 3019 ^0 



Jia 



end; 
end; 
TQ exit; 



end; % CASE 1 

End all cases; 

ERHt 



ERRSw j= word; 

IF EQUATED THEN 

JAM {s vfrrhb; 



enterespc-ll^-omU] ); % cnvt back esp disk 



EQUATED «« false; CONTINUEbU »» 
EXIT I 

EN D PR nCE OuR F E QUATE* 



43019410 
43019420 
43019430 

43019^40 

43019/150 

4 3QlS-4Aa.- 

43019470 

43019500 

43Q19600- 

43019700 

43019800 

4 30 1 9900 . 

43020000 



False; 

43020100 

_ __ 4 30a0200 - 

PROCEDURE STATUSCHECK(LCW,A); BOOLEAN LCWi AHRAY AtoJ; 4a000l0Q 

%************ *********** i,*1,*ir*^,^i,^,i,i,*^,^,^,*r*^,*^,i^,^,*ic*^,^,***^,^,*^,^,^,^^,^.^,^,^^.^,^f^^^Q()C)2QQ 

BEGIN 44000300 

REAL CPU*I0#SEQ; 44OOO4OO 

LABEL NOTRUNNINGtEXIT; 44QQ0500- 

......*,.... , 44OOO6OO 



t 

STREAM 
% 



'pROCe'duRE MESSArku0RK#CPuh*0^CMP#R27); 'value *CP|j» 10^ 



BEGIN LOCAL SVl#SV2; 

dii»work; dsj»8Lit« "; si:swuhk; d3<«9wos; % ulank 
dt;»work; DSi»4LiT"CPug"; svnaDi; siulqc cpu; 



ARRAY 



^(OSjsschr; 
dsi=2chr; 

DS f »2 CHR; 



DS|a6LlT" hRS# '•> 
DSl=6LlT" MIN* "; 
DStgLl T^f*'; U SJrCHR; 



US t = 6 LI T" b i( f » % " t 



DI«»SVU DSI«18FILL; SV2t«ol; 

26(IF SC*"!" TWEN JUMP OuT ELSE DSjsCHR); 

SH^LOC IQ» DSI»4LIT" I0«" ; SV 1 8 «D I) ;ni 8 



SItsSV2> Dl«»svi; 

Df4; 



CMP(DS: = 10LIT" AT SEQ V "i SVUsQi; SI:=L0C Ri7; 

0S;=80EC; 0S8*LIT"X"; DI«=SVli ds«=7fill; SV2t»0i; 
SI{=SV2; DltsSVi; 8(IF 5C="a" THEN JUMP OUT ELSE DStsCHR)); 



DSJS25LIT'' "; 

END STREAM PROCEDURE MESSAGE; 

CASE DOING OF ^^^ 



BEGIN 

BEGIN X CASE - INITIAL CHECK 
IF RUNNING OR COMPILING THEN 



IF «UN1 NEQ ANO RUNa NEQ THEN 
BEGIN 
Al8ASE*3 3H»RgALf COMPILING?; 



IF RUNNING THEN 
BEGIN 
IF (A[BASF]»=R0Nl).[6;6]g0 



44000700 
, 4400Q 8 Q iL 
44000900 
44OOIOOO 
44001 yoo 
44OOI2OO 
44001300 

440Q1400 

44001500 

44001600 

44OQ170 .Q_ 

44001600 

44001900 

44002000 

44UO21OO 

44002200 

44O023 O 

44002400 

44002500 

44002600 

44002700 

44002800 

440029^00 



BEGIN 

AtBA8E3«»IF RUNl . Cl2l6 J**? f* 

" *'&RyNH:6U2l34i; 



THEN % REQUIRES SHIFTING 



THEN FILENAME ELSE 



end; 

ACBaSE + 1] : = MATCH(RUn2*"CAimDE 
A[BASE+2]8=USFRCaDE; 



44003000 
44003100 
440^3 200 
44003300 
44003400 
44003500 



) USLHCODE ELSE RUn2 



END % IF RUNNING 
ELSE 
BFGIN . 



44003600 
44003700 

44ao3flnn 

44003900 
44004000 
4a 0Q 4i 0n 



J? 



m • 



h 



10 

I 11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



52 
53 



A[BASE]:»RUN2; % CUMPlLtH ,\aME 

AtBASE + 1] J = IF RUNl.C6H2J = "li'" THtN FILLNAML ELSE 
ArRASF + ?H°"IISF WCnfJF) 31 NFnATTWF T F CHMPTHNf? 



RUNl 



end; X IF COMPILING 
STAATUSC Lli I AM C 33 I « 1 1 7 3 * A [BASE 3 # A [BASE* I 3 # A £ B ASE+2 3 37 
WATTrnp la i/^ui ________„ 



TEMP «s Hi 
DOING «= i; 
GQ Tn FXTTf 



end; 
notrunningj 

WQRKCQ3»»*«N0 



JQRS'Vi 



BLANKCmOSKCni)) 



WORK[ 13 IS" RUNNING"; 6L ANK ( iNOKK L 1 J ) ; 
Tl«iXOUT(LL'WORK[03M6M); 
TNQUlRYtsFALSEJ 



I AM 

end; 



X 



o; 

CASE 



BEGIN % CASE I - RESULTS DF INQUIRY 

IF EVENTSC13 LSS THEN yQ TU NOTRUNNING; 

CPU»=TIMEC0NV(EVENTS[13#FALSEJ; 



lOSstIF EVENTSt23»BEAL(NOT FALSE) THEN ELiiE 

TIM£CONV<EVENTSt23*FALSE); 
IF B0QLFAN(ACHASF^-31) THEN X CUMPILTiMA 



IF CSEQj=EVENTS[3J ) s REAlCNOT FAi^SE) 
MESSAGE{WORK*CPU'IQ^A[BASE + 33*i5E9;; 
TWXUtlTCLI./INnRKCni^flOH,); 



THEi\ ACBASE + 33 I = o; 



inquiry««false; 

I AM la o; 

END CASE g; 



end all cases; 

EXlTJ 

END PROCEDURE STATUSCHECK 

x***«********** ****** 

PROCEDURE SSMSg; 
BEGIN 



DEFINE A[Al3aLlNECLL^An#i 

stheam procedure frk<(F*t*uc,ll); VALUE ucll; 

BEGIN 




(yf-f<^. 



real 



lcvj; akray A[Oi; 



BEGIN 
LABEL XIT; 



STREAM PROCEDURE 
BEGIN 
DI := w; 



8ZY(W*UC'LL5; VALUE UC'LLl 




440U4200 

44004300 

J>4 004A-m3- 



44004500 
44004600 
440(14700 



44004800 

440U4VO0 

JtAQjJSOQQ.. 



44005100 
44005200 



4400540C 
-44005500 
4400*1600- 



44005700 
44005800 

44006000 
44006100 
44006200 



44006300 
44006400 
440Q6 5Q 



44UU6600 
44006700 
44^.106800 



44006900 

44007000 
4400710Q 



44007200 
44007300 
44007400 



50000000 
50000100 
5000 0200 



50000300 
50000400 
50000500 



50000600 
50000700 
50000800 



I 



50000900 
500010C0 
50001100 



5000120a 
50001300 
50001400 



50001500 
50001600 
50001700 



50001800 
50001900 
50002000 



500U2100 

50002200 
50002300 



50002400 
50002500 
5 00Q260Q 



ri 



3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 I 

IS 

16 

17 I 

18 

13 

20 i 

21 

22 

23 ^ 

24 

2S 

26 I 

27 

28 
29 I 
30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 

44 1 

4S 

46 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



e 




OS :» LIT "(••; 

SI 1= Lnc ll; 
ns >= ? DFc; 



S00UiJ700 
50002800 



1 

2 

3 

4 

5 

6 

/ 

8 

9 
10 
11 
12 
13 
14 

lis" 

18 



DS J* 6 LIT ") BUSY"/ 

END bzy; 

TF IDLFLTNF OR A| I OMMSR THFN T wXClllTf I I . WORK L 1 . 1 4^ .:^ ^ 



50OO3OO0 

50003100 
50003200 



ELSE 
BEGIN 
IF RUNNING THEN MATCHC >'C ANpe 'VHUNcf^ EL&E 



BEGIN 

8ZY(WORKr20 3»USERCODE*LL); 
TWX0UT{T^W0BKr3Q3,l6#1 )i 



GO XIT 

end; 

EVENTSCQ] t= 0&LLL25UQi83&VSbMbiiLlHMl ;/]; 



50003300 
50003400 
^Q0(i-I500 



50003600 
50003700 
5OQ03flQ0 



50003900 
50004000 
S OOU '^IOQ 



20 
21 
22 



23 
24 
25 
26 
27 
28 
29 
30 



MOVE (4#WORDS*WQ8tKtl03*EVENTSClJ ); 

REMEMBERTHIS(LCW); 
JLMQI 



XITI 

END 
LAB E L _ 



spout; 
ERR/ exit; 



BOOLEAN GOTONE; 
REAL T/WURD; 



START HERE 



FRMCL'WURK^USERCODE'LL); 

T t= ll; 

IF (WORD:aACBASE-t-23 ).[3;3] 



THEN 



BEGIN 
IF LL la WORD QTR WAXLINES THEN GU ERH; 
IF LOGGEDON THEN SPQUT( LOW, AC * 3> D ELSE 



GO erh; 



50004200 
50004300 
50004400 



50004500 
50004600 

5 C0047 00 



50004800 
50004900 
50005000. 



500G5100 
50005200 
500 53QC- 



50005400 
50005500 
50005600 



GO EXIT 

end; 

I F T = Q 



THEN 



50005700 
50005800 
5 00Q 59QQ 



31 
32 
33 
34 
35 
36 



MATCH(W0RD.[6«42]# "ALL ") 
BEGIN, 

FOR LL t" 1 STEP 1 UNTIL MAXlMnES 00 



IF USERCODE NEQ THEN 
BEGIN 
SPOUT(LCW*A[*]>T); 



50006000 
50006100 
50006200 



50006300 
50006400 
5 0006 5QQ 



37 
38 
39 



GOTONE i« true; 
End; 

IF NOT GOTONE THEN GO ERR; GQ EaIT 



50006600 
50006700 
50006600 



(0 
41 
42 
43 
44 
45 



49 

50 



52 
53 
54 



55 

56 



End; 



FOR LL 1= STEP 1 UNTIL MAXLlNEb DO 



I F L OGGEDON THEN 



MATCH ( WORD . C 6 1 flg 3 , LINE C LL * UCLOC 3 ) 
BEGIN SPOUT (LCW» ft t*3#Ty; 
ftOTONF i» TRur; " 



End; 
if gotone 



_LM 



THEN GO exit; 



1 

LL >» t; 

LITOUT( 



W R 
EXlTJ 
LL « 



NOT ON •♦* t); 
iteasterisk r« f alse, 



t; 



-END SSM.S.fi.; 



50006900 
50007000 
500 071 00 



50007200 
50007300 
50007400 



50007500 
50007600 
50007700 



50007800 
50007900 

-sounaooo 



r**** ******«'« *******«***% 



PROCEDURE PDIT CLCh# AJ; BOOLEAN LCw; ARRAY ALOJ; 
X******************* *************************** **»*****•;£ 



50008100 
50008200 
50008300 



51000000 
51000100 
54 QQQ2Q0 



i? 



m t 



>r 



10 

11 



13 



16 

17 
18 



19 
20 
21 



26 
2« 
27 



29 

JO 



32 



34 
35 
36 



39 



50 



52 



55 

56 



BEGIN 
LABEL GETIT* EXIT; 
INTEGER U- 



REAL STREAM PROCEDURE F0RM<T/F); 
BEGIN 

: sx 



«» Fj DT ra rt upsr 



BEGIN 



IF SC LSS "0" THEN 



P^ ««LIT' 



Jll. 



Dbt^rcHRi TALLYtai; 



END ELSE 

IF SC EQL 
BEGIN UPSf 



"0" THEN X OBJECTfILE. 



FN D 



IF SC LSS "c" Then 

BEGIN DSJaSLiT" *"> 

IF nR.jEcT Fn.t-.; 



% imOT inhkfile 

QSJ=6CMR; tally 



if End; 



FORMt«TALi.Y; 
END OF form; 
-_— C ASE DOI N G 



HE. 



BEGIN 

BEGIN * CASE 0. 
AtB AS E]|«M Q nULU S , J 



ACBASE + n 
ACBASE+2] 
SREG 



DQii^ti>-i; 



ts o; X 

j» o; X 

ta ftAS£43;ai 



TEMP 
END CASE O; 
- B EGI N % CASE 



j= ii; 



USED FOR ADDH SECOND HALF, 
USED FOR ADDH LINK, 
BUFFER PniNTER. 



A ALLOiN 8 kNDS bUFFER. 



If (FIRST- H ALF , QF B LO CK) 



AC BASE 3 »eClt»AC8A3£3)-i; 

IF 1*0 THEN GO exit; 

L l. nrSKRE A DrsAfB A SE-n3>*Tl^ScR A MB L t::(T*USERcQDE); 



E N O 



WANT JsVDISkRFAD; 

D0INGI=2; 

CASF 1? 



BEGIN % CASE 2. (FIRST HALF IN). 

ACBASE*23I«W0RKC2]. FF; % ADOR LINK 
ACBASE*lHsA[BASE»lH-i;a; ADDR SECOND 



HALF 



GO getit; 

END CASE 2; 
BEGIN Hi CASF ,3t 



(ANY HALF 1N>, 



getitj 



FOR It»C STEP 3 UNTIL 27 DO 



BEGIN 



SREGJsFCRM(ACSR£(aJ*WOHK[I ]) + SREG; 
IF SREG^RASF GTR ^Q ThL^ 



BEGIN X PRINT TH£ lInE. 

SREQ'I*8-ASE+'3;' 
— MQVEfa*wnRDS>A[SR£:G3*Lt03); 



TlNX0uT(LL'LL03*64*n; 

END printing; 
END for; 



if lloiskread»satbas£+u gtr 1000 then 
begin x get second half block, 
acbase^iiisq; 



A^ 



END 



D0ING»=3; 

wanti=voiskread; 

ELSE 



BEGIN 



t 



IF LLDISKRlA0J^AtBASE*23 GTR lOOO THEN 
At8ASE423l»o; 



31000300 
SlOOOi^CO 
51000500 



51000600 
51000700 
5lQQ QflQQ. 



51000900 

51000950 

il-OMflfiiL 



51001010 
51001020 
51 Q1Q30- 



51001040 

51001050 

.5l0010ft0- 



51001090 
51001100 
5100120X1. 



51001300 
51001400 
510015.0.0 



51001600 

51001700 

-51001800- 



51001900 
51002000 
510021 



51002200 
51002300 
Sl00?4n0- 

51002500 
51002600 
51QP2700 



51002800 

51002900 

.5-U-O.iOJlIL 



51003100 

51003200 

-ilCLQ-ilfl-H. 



51003400 
51003500 
^1003600 



51003700 
51003800 
51 00 3900 



51004000 
51004100 
51004 20 , 



51004300 
51004400 
51004500 



51004600 
51004700 
51004B00 



51004900 
51005000 
5100510 



51005200 
51005300 
51005400 



T1^ 



56 ' 
57 



>r 



ACBASE + n $=LLDISKRE.AD/ 
DQINGJ»'2; 
I^ANT»"V DI SK Rfc; AD / 



51005500 
51005600 
510Q57Q0 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 

n 

12 

13 
U 
|i5 
16 
17 
18 
19 
20 
21 



END ELSE OOINGlel; 

END CASE a 

BEGIN % CASE 4. CWRAPuP). 



EXITJ IF SREG-BASE 

BEGIN 

iissreG"BASe:-3; 



GTR 3 THEN 



SREGS=bASE*3; 



51005800 
51005900 

. 51006QQ0 

51006100 
51006200 

, . ^ . 5 1 0Q630Q 

51006400 
51006500 

5l PQ »60 Q 

51006700 
51006800 

51 00 6900 

END OF POIt; 51007000 

X***** ********** * * * * * * * * ft » ********************************* *************52000000 
PROCEDURE CQPYIT(LCW>A); BOOLEAN LC»<i ARRAY A[*j; 52 000100 



Am. 



MOVE(WW0HOS#ACSREG3#LtO3)i 
TWX0uTCLL#LC03*CIxa)*CRlF)' 

IF leftovers; 



lAMjsO; 
END CASE 4; 
END ALL cases; 




23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 



33 



34 

3S 

36 

37" 

38 



39 
40 
41 
42 



43 
44 
46 
46 
47 

«a 



49 
50 
51 



kPPTW# COPY* DELEtTT^^^Ef^GE* PUNcH, ReSEQ* RMeRGE' 
REAt InPCOUNT, QUTCCUNT, PREVNUMBER, WORD, UMT, UNITnUmBER, 
FILNAMW Fl LNA M 2f FlL N AM3> SAVE wU HQ, NPaRAMS, yFRRS 



LABEL EXIT, error; 
BOOLEAN T0GW0RD,WINDUP; 
DEFINE 



52000500 
52000600 
52000700- 



reversetog 
reseqparam 

H ARDCnP Y 



n T0GWCRD.t01«l]#* iiSEQVERB 
» T0SW0RU,C03» U#» HaVEMINUS 
« TftGwnRO.fQUl Jk, NiOTtoinRKFTl^ 



52000800 
520U0900 
52001000- 



HAVEINPUTFILE 
SAVETQG 

havftncrfmfnt 



* TOGWORCCO^JUfK* 5200UOO 

» T0GWaftD.CO4M3)|f, 52001200 

■ Tn6>»oRn,co6inft 5?qqi3Qq. 



= TOGWCRD.[07»1J#* LI8TDG = TOQWCRd, [Ob 8 1 3 *' 52001400 
a TOGhORO,[Oy: I J#, hAVERESEQRANGt. s TOGWORD. CI J 1]* , 52001500 
= TBriWnHD,cn M J<>* hAVE,NE»<.BASE ^ TQlinGRp, n <> M 3 »* 52001600 



HAVEOUTPUTFILE » TOGWGRO.tl3tl3*, LASTPARAM 
CASE DOING OF 
BEGIN : . : -^ 



« T0GW0RD,£i4Ti]))(; 



BEGIN % CASE 
LABEL restart; 
NPARAMS ,{» CACSREGufJASF-AtBAjL ]] j,FF; 



52001700 
52001800 
52001900 



it PARAMETER COUNT 



52002000 
52002010 
52002100 



VERB :* IF AIBASE3«0 THEN "COPY "ELSE, 

VERBTABlECA[SREGJ»C9:91-3.C6|423; 3! GET- VERtJ NAME FROM TABLE 
MATCHfVrRp,"nyi fTF ") % SFF tr RFFFRS TH WORK FTlf; rfRST 



IF NPARAMSsO OR NPARAmSsI AND A [ SREG + 1 3 . [6 J 42 3 s"ALL 
BEGIN % SCRATCH THE WURKF ILL 

DOING »= nfljFCTFTLP; >- 0; t^unnfiBj ;- false; 



52002200 
52002300 

laOQgann 



" THEN 



52002500 
52002600 
52 0027 0Q. 



SOURCEFIlE l« MAKEFN("iS"*LL); X "IS" i ILE NAME 52002800 

MAKEF ILEC LLi 1 3 C 33 » 4i 1 7 3' 1 » SUURCEF ILE^USERCODE* FI LETY PE* ) ; 52002900 
lAM »» VaCTUPFlLFS; Wfi I T£ ASTEH I SK ts TRUE ; 60 T" FXlTl 9g"0^0Q0 



end; % IF DELETING THE WQRKFIUE 
MATCH(VERB>"PUNCH ") % PAPER TAPE 
BEGIN 



IF SCHEDULINE THEN GOERRC "PUNCH •♦,40), 

IF device*conrac or d£vice»oios Then goerrcpunch 

% PUT YOUa FLNnV TERMINALS HERE 



52003100 
52003200 
5 200 3300 



"#563; 



52003400 
52003500 
52003600 



52 
53 
54 
55 



56 

67 



HARDCQPY >« TRUF; 



end; % IF punch VERB 
IF FILETYPE«8 THEN % TYPE 
B EGIN 



52003700 
52003800 
52003900 



DATA FILE 



52004000 
52004100 
52004 200 



3 



m • 



h 



10 



13 



IS 
16 
17 
18 



19 
20 



22 



2S 
2« 



27 
28 



29 



32 



34 
3S 



36 

37' 



38 



41 
t2 
♦3" 



46 



«8 



49 
SO 



MATCH(VERB»"MfKGE. 
MATCHC VERB*"RMERGE 
FNn? % TF DATA FiLt: 



") 



GQF.R«C"Me«Gt 
GUtRKCRMERGt 



" * 5 / ) > 



IF TPCOUNT 

BEGIN 
1 TTmiT/WMATT, 



GO TO exit; 
end; 

MATCHCVFRRy^RMFRrit. 



GT« Then X WORK FILE NEEDS UPDATING 

^'■ NPrRiFli TEMP t 81 ; WAMT fUliPDATF! 



52004300 
52004400 
^2004^00 



52004600 
52004700 
f^2Q04fl00 



) % KFVFRSL MkRGK 



BEGIN 

REVERSETOG 
ENDJ 



52004900 
52005000 
52005100- 



t» true; vers »s "MERGE 



CLEAR(WORkC03,29); 
MATCH(VERB#"RESEQ 
RFftlN 



* ZERO UUT THE "WUHK" AHRAf 
") * ^ET DEFAULT OPTIONS 



52005200 
52005300 



RESEQVER8 t* TRUE; 

WORKCSr »• •1; X DEFAULT LOWER BOUND FUR RESEQ 

W0RKt63 i» lOQOOQOQO; I DEFAULT UPPER SOUNO FOR RESEtt 



W0rK[7] 

end; 

WORKC93 »g 



«= W0RK[b3 := 100/ % DEFAULT HASE ANU INCH, FOR 
MAKEFN("1S"*LL); % DEFAULT OUTPUT FILF NaMF 



52005300 
52005600 
5200570X1... 
52005800 
52005900 
-52.0Ma.Q0.. 



REbTARTi 
rtHlLE 



FILNAMl Is WORKClO] la SOuHCEFlLC; % DEFAULT SOURCE FILE NAME 

FILNAM2 i« wORKcaa IS usercode; 

TNPCnUNiT t» nt niiTrnUMT ;» oo: PfirVi^iijifaf p 



la -r 



REiiEQ. 52006100 

52006200 
520063 00 

52006400 
52006500 
i2i3JlA6JCUL. 



% 



(IN PCniiNT I >-a,S NPARAMS) OH ^INDiiP nn % PICK hP All PARAM<; 



52006610 

,52006700 

?>20Qft800 



BEGIN 
I ABEL 



UNSIaNeD^NEfiATIV£^ 



IF WINDUP THEN % FINISHING UP LAST PARAMETER 

BEGIN 
WTNnUPIsFAI.SF? TiO Tfl UN^^KiNFO? 



,52006900 
52007000 
52007010 



End; 
sreg is sreg <•■ u x advance 
inpcqunt is inpcount ^- i; % 



52007020 

52007030 
5^007040 



"STACK" POINTER 
COUNT THIS PARAMETER 



WORD Is ACSRFCJ; :S TRANSFER RAHAMFTtR 

X,,,. . , , 

IF w n R n>r3t33 gtr q thfn % paramftfk is a lfttfr strim(V 



52007050 
52007100 
5g007?QQ 



52007300 
,52007^00 
52 O075 Qfl- 



BEGIN 
WORD* CI 15 3 



MATCH(W0R0»"END 
BEGIN 
WORD Is 100000000/ 



Oj X ZERO OUT "CODE" PORTION 



") % CONVERT TO LUFMaRK 



,52007600 
52007700 
52007600 



GO TO UNSIGNED; 
MaTGH(WQRD»*»PRInTER") UNIT 



52007900 

52008000 
52008100 



2 ELSE 



MATCH(WORO*"PUNCH ") UMT I* 3 ELSE 
MATCH(W0RO*"TaPE ") UNIT i- 4 ELSE 

UNIT »=» c ; 



52006200 
52006300 
52008400 



IF UNIT GTR THEN X 
BEGIN 
M AT OH ( VERB >" COPY 



HARD COPY REQUESTED 

N'*^>".EtSE-;.GQ EfiftO^Rl'." 



52008500 
52008600 
520Q870Q' 




V 



y^ 



.^) 




IF 

IF 

_LF. 



HARDCOPY THEN GO ERROR; % REUUNDAnT 
NfiT HAVEMINUS THEN GO ERROR; X MISSING 
HAVEOUTPUTFILE THEN GC ERROR; 

UNITNUMBER :« UNIT) 

HARDCOPY la TRUE; 

HAVEMINUS ;s FALSE; 



52008800 
52008900 
52009000 



'M^fi^H ((^b<tp^^^fl^^v<j^u '0 WAtr^-^r-ei^ 



]^^^^rci^[uion^^ 'I mfmsxj '^ ^ ^^^i^^Q^^d^ 



vv 



^ 



•» T U " 



X SAVE UNIT NUMBER 



52009100 
52009200 
5200930 



52009400 
52009500 
52009600 



^ 



2 
3 

4 

5 

6 

7 

8 I 

9 

10 

11 I 

12 

13 

14 ( 

15 

16 

17 ( 

IB 

19 



20 \ 
J2I 
22 
23 < 
24 
25 
26 i 
27 
28 

29 ( 
30 
31 

32 < 
33 
34 

3S \ 
36 
37 

38 \ 
39 
40 
41 < 



44 ^ 

46 

46 

47 < 

48 

49 

50 ' 

51 

52 

53 < 

54 

55 



m • 



>r 



END * IF UNIT GTR 

ELSE MATCHCWOKU/"RESEQ 

BLGI N 



") 



IF RESEQVERB OR RESEftPARAM THEN GU ERROR; 

RESEQPARAM !« TRUEJ 

W0HKt53 »« -IJ * DErrtULT LOWER BOUND FOR RESEQ 



52UU9/00 
52009800 

5S Q099 00 



52010000 
52010100 
520102QQ 



4 
5 
6 
7 
8 
9 
10 
11 
12 



W0RKL6] »= lOOOOOOCO % DEFAULT Ut^PEh BOUND FOR RESEQ 
W0RKC7] «= WORKCeJ «» 100^ % DEFAULT BASE ANL INCR, 

PRFVNuvnER ;= -i; a; hlsft cgi^pap^isqn valhf 



IF SAVETOG THEN % NUMBER STORED IN SAVEWORO 

iEGlN 
IF QHTCOUNlT Is ClUTCnUNT*! 6TR 29 THEM 



52010300 

52010400 
SPOlQ'iOJI.. 



52010600 
52010700 
52010600- 



GOERR{"TaOMAI\Y"*3GJ; 
WDRKCUUTCOUNT J ;» SaVEWURu; 
SAVETQfi is false; 



52010900 
5201100C 
52 Q U10 . 



19 
20 
21 
22 
23 



24 
25 



26 

27 
28 
29 

30 

Jl" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
48 



49 
50 
51 
52 
53 
94 



55 
56 
S7 



end; % IF SAVETOG; 
END % IF "RESEQ" 
XI. SE M ATCHrwnRO»" Tll tX 



520U200 
52011300 
52Q1U00 



BEGIN 

IF HAVEMINUS THEN GO 

HAvEMiNua ,8= true; 



error; * REDUNDANT 



END X IF •♦TO" 

Else matchcword, "library") 

RERIN : 



52011500 
52011600 
520U700 - 



IF LIBTOG THEN GO ERhUR; % REDUNDANT 

IF NOT HAVEINPUTFUE THEN GOf. RR ( WORD, 55 ) ; 

iiRTOG » g tru e; 



52011600 
52011900 
52012000- 



%. NO FIRST 



END % IF "LlBRAKY" 
ELSE IF LIBTOG THEN » SHOULD BE SECOND NAME 



52012100 

NAME52012200 

52012300 



OF FILE 



MATCH(VER8*"0ELETE ") GOLRR( InOrD» 39 ) ; * 
MAtCH(vERB,"PESEQ ") G0tRR(y'0RD»39); % 
IF HAVEOUTPUTFTUF Th ^N GC E RR ( ^Q R pf 3 9 ,H 



5201240C 
52012500 
52012600 



OUTSIDE FILE 
OUTSIDE FILE 



FlLNAWa »s W§R0; » SAVE SECOND NAME OF FILE 

LIBTOG »« false; 

END % IF LIHTOG . 



52012700 
52012800 
52012,900 



ELSE IF hAVElNPUTFILE 

BEGIN 
MATCHC V FRB i"C QPY 



THEN % MiuHT fat Output file 
"j EI,S£ G f i frri j r ; 



52013000 
52013100 
5201.^200 



52013300 
52013400 
52013500 



IF NOT HAVEMINUS THEN GO ERROR EL^E HAVEMI NUS t spALSE; 52013600 
IF HARDCDPY THEN GO ERRORi 52013700 

IF HAVrOUTPUTFlLF THEN GO ERROR! 530l3fl00 



IF (FILNAM3!=W0RD).U2:63 NEG; " 
HAVEQUTPUTFILE '•' TRUE; 
NOTftORKFlLF '>'' TRUE > 



THEN G0ERRCWGRD#42); 



END X lU HAVElNPUTFILE 
ELSE 
BEGIN X SHOULD BE INPUT FILE NAME 



52013900 
52014000 
52014100 



52014200 
52014300 
5201 4400 _ 



IF HAVEMINUS THEN GO ERROR/ 
IF COMPARCVERB, "DELETE ") OR 

BEGIN 



COMFARcvERB»"RESEW ") THEN 



52014500 
52014510 
52014520 



IF COMPARCWORUfFlLtNAME) THEN GCERRC "WRKFILE"* 62)1 52014600 
NOTWOHKFILE «• TBUE; 52014700 

gNO; :■ '^ ...... ^ '■:,- ; , : 52014800 



FlLNAMl Js rtCRO; 
HAVElNPUTFILE «= TRUE; 
end; % IF FILENAME 



END X IF PARAMETER iS A "STRING" 
ELSE 



52014810 
52014900 
52015000 



■♦•«■•♦■■ » « ■«■ » »..■■-♦.*.■», ,». #-i 



52015100 
52015200 






> 



1 

2 
3 

A 
S 
6 
7 

Is 

9 
10 
11 
12 
13 
14 
15 



16 

I '7 

18 

19 
\ 20 

21 

22 
I 23 

24 

25 
\ 26 

V 

28 
I 29 

30 

31 ~ 
I 32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 

I 44 
45 
46 

t 47 
48 
49 
50 
51 
52 
» 



IF 

X. 



W0RD.[1J2] = 1 Th£N i. K^AKM^^E-TtH lb a "SPECIAL" CHARACTER 520l5tt00 
• 52015500 

• — — — — _ Sii;4-5-frC^- 



BEGIN 



IF WORO.C/t2J6 3»"/« THEN 
BEGIN 
If llBTnG THFM Gfi FBHOR; LI ftl flfi > «TffUf » 



END 
ELSE IF k<aKD.t'i2:t'] = "-" THEN 
be; GI N 



52015700 
52015800 



IF HAVEMINUS THEN GO iRRORj HAVEMlNUS » »TRUE; 
KND 
FLSF GO rRRORi % FUNNY CHARACTER 



END 
ELSE 

-1 



* IF A SPECIAL CHARACTER 



52016000 
52016100 

..i20j^2Q.a. 
52016300 
52016400 

,.52 16500 



52016600 
52016700 



UNiJiGNEDJ 



LLbE. 52016700 

* »f« », »«»».> 4 t,« t , >.>.«..» .» . .» » > » t » t t « « > . ,« »,» I « , I « ,,,,,» ».«..«..».«..«.. » .« , t , I « « , 5 . 2 Q 1 6 8 00 

IF WORD.tUSJaO. THEN I AN UNSioNEO NUMBER 52016900 

«*••#••••••»••«• ••««tt««*«>»t«*»*««*t*»*«*«i»**t*«tf***«««*at*«52017000 

RFfilN . __ \ 52017100 




IF 



HAVEMINUS 
a EG iN 



THEN * SHOULD BE NEGAFlVE NUMBER 



IL. 



WORD {X -WQHO; HAVEMINUS »s fALSL^ GO TQ NEGATIVE; 

end; 

SAVETOG THrN % Al BFADY HAVF A fJtlMBFR STORgn 



5201720C 

52U17300 

-5 20 1 7 /4 0O-. 



BEGIN 

IF RESEQPARAM 

BE GIiv l 



THEN 



IF HAVERESEQRaNGE Thek Q0r,RR(i^QRU,59)J 
IF LASTPARAM THEN WORK t 73 ! sSAVtWOHD 
Fi SF GnFRHfwnwn.sgit ^ 



52017500 
52017600 
IN ".SAvEwURD^ SPO lZZilil,. 
520l7a00 
52017900 
520lfl000 



END % IV HESCQPAKaM 
ELSE IF RESEqVE'^B THLN 
BEGIN 



52018100 
52018200 
52018300 



5« BASl on KA.jGE L.b 



52018400 
52018500 

52018600- 



IF HAVERESEQRaNgE AND HaV£NeWBASE THEN G0ERR( WORQ^ 59 3 ;52018700 

OR LASTPARAM THEN 52018600 

5201 8900 



IF 



HAVERESeORANGe 

BEGIN 

WaHK[7] ?= SAVcrtQi^U; 



HAVENEWSAot:; 
E NP 



:= true; 



ELSE 

BEGIN 



52019000 
52019100 



HAVERE-sEOKaNGE 
ENO; 
END % IF P( E S LUV b . Ht) 



ta W0RKC6] ta SAV£»<ORDJ % RESEQ ONE RECORD 



IKUL. 



52019300 
52019400 
5 20t9 ' >Q Q 



ELSE 

BEGIN 

OUTCOUNT 



52019600 
52019700 
520 1 9 800 



IF OUTCOUNT GTR 

WORKCaUTCOUNri 

END,? 



In OUTCOUNT * \i 



2'J THtN GUERR("TOl)MANY'% 30); 

• savewoho; 



52019900 
52020000 
52020100 



end; as if savetog 

SAVEWORD J* word; i SAVE THIS NUMBER 
SAVETDG ta TRUEI 



52020200 
52020300 
5?0a04QQ 



END 
ELSE 



X IF PARAMETER 16 Ai\ UNSIGNED iMJMBER 



52020500 
52020600 
52020700 



IF WQRo.n»21«2 THEN t 

■.■.■V-BEGIN-. y: ..:.,,." ■'; .. ■:■■.■... 



Parameter is 



52020800 
52020900 
520210 00 
52021100 



A NEGATIVE NUMBER -^,^*i«v 

•*t*«>«a*«*«**«t***t*«t*«t52021200 

-^ : ^- -__^ 520^1 30 



1^ 

2( 
3 
4 
5( 

6 

7 

8< 

9 

10 



f 



negative: 






IF NOT SAVETOG FHEU GUEKH ( /<0H DM 1 ) > * MIbSIi\G LQwtR BOUND 
IF PREVNUI»^B£R liEdl ■'■iA Vt:Wimi.l THLi^. QOtHH C Sa VE WURO* bB ) J 



2 
3 
4 
5 
6 
■/ 
8 
9 
10 
11 
12 
13 
14 

US 



18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



38 
39 



40 

41 

•2 

43 ~ 

44 

45 

46 

47 

48 



49 
50 



51 
52 
53 

54 



55 
56 



IF SAVEWORO GEQ 

IF RESEQVERB OR 

BFGIN — 



ABS(WGROJ THEN GOERKt W0RU»58 ); 
REaESPARAM THEiM 



520^1400 



IF HAVERt.StQKAN^it THtN 

iNORKts] «= savewchd; * 

WflRKi;?] ; , = 3 AVE>Y0 rt U i i ^ 



GU EKrtQR; 

LUWErx BGUnU FGR 

aa ^ i. FOR KhS i;. u; 



52021700 
52021600 
520 21 900 



RESEQ 



SAVETOG J* false; 
^0RKt6] »* A8S(WOR0 3i * 
HAVFBFSF4iRANr, F t^ TR iJ^? 



5202200G 
52022100 



UPPER BOUND FOR RESEQ 



END * IF RESEQVERd OK RESLaPARA'-l 
ELSE 
QE G I N 



52022300 
52022400 

'i2a??500 



52022600 
52022700 
52022800 



IF aUTCOUNT»sOuTCOuNT+l QlR 28 THEN GOERRC "T00MANY"# 30 ) ; 52022900 
wQRKtOUTCOUNTl «- SAVEWQRD; 52023000 

MV ETDfi isFALSFJ sppy^inn 

PREVNUN-BER != AbS C wORK [ OuTCUuNT ! =Uu TCQUNT+ 1 ] : = InORD ) ; 52023200 
end; * IF NQT A REStw PARAMETER 52023300 

..END % IF PARAMETER U A NFGATIvP Nl.MOFR S^iMiiUlO-. 



ELSE 

X. , 

J J WQR D.r HS1*3 



THFN % PaRaMFTFR TS a "♦'* MiM^E R 



52023500 

,52023600 

520^3700 



% 52023800 

BEGIN 52023900 
IF ^QT(RFSFQVFRfl riR RFSE(JPARAM} THI-iv Gn FRRpRi 5?024nQO 



IF HAVEINCREMFNT THEN GU ERROR; X REDUNDANT 52024100 

IF SAVETOG THF.N % HAVE AN UnS1Gi\ED nUmSER IN "SAVEWQRD" 52024200 
BEGIN 52024300 



IF RESEQPARAm AiND HAVEreSEqRAnGE Then GaERR(SAVEkVQRD*59);52024400 
W0RKC7] J= SAVErt'OHD> * iMEW BaSE 52024500 

SAVETOG •= FAL.'iF; ^ 520^4600 



havenewbase j»» true; 

end; % IF SAVETOG 
WORKtS] t» y<DRD.i:6»42]; 



* RESEQ INCREMENT 



52024700 
52024800 
52024900 



JUjl. 



haveincrevent := true; 
end; % IF parameter is 



N U i* B b. R 



52025000. 

52025100 

.52025200 



END WHILE statement; S NO f.ORE PARAMETERS 



%, 



IF SAVETOG TfelEN IF NOT LASTpAHAM THEN % NUMBER LEFT IN SAVEWQRD 



52025300 

,52025400 

52025500 



BEGIN LASTPARAMjsWlNDUP: = TRUE.; GL TO RESTART; END; 52025600 

IF RESEQVERB QR RESEQPARaM THEN IF I'-'jRKCSJsO THEN WURKC5J:s-l; 52025610 
IF HARDCOPY THEk :>; HuTPUT TU HEHIPHEHIAL UNIT ^ 520257 00 



BEGIN 

W0RKC9] »s & UNnNUMBER£6J42{6j 4 
(IF HAVEINFUTFlLr THI-N FTLNAMI ELS|r f II ENAMF U 1 2 t 6 > 36 3 ; 

END % IF HARCCUPy C"PUImCH" VERB ASSUMES RLf/OTE UUTPUT) 
ELSE IF NOTWORKFILE THEN^ wOHKinG ^aiH EaTERnAL F JLE 
WnRKi:91;=IF HAVEnUTPUrF,Ii.,E THF.N FILNAM3 Fl.oF FlLNAMl , 



52025800 

52025900 

52026nJlQ... 

52026100 

52026200 

52026300 



ELSE 

BEGIN X USING THE WORKFILE 
IF FTLFMAMFsn THFNI finFMHf"NO FILF>'.MJ 



IF NOT HAVEINPUTFILE 
BEGIN 

matchcvfrr>"m,-rgf 



52026400 

52026500 

■ 52Q26600- 



TmEN a check VERBS REQUIRING FILES 
") G0ERRCVfRr^6^; 



MATCH(vERB# 

end; 

IF RFSEQVFRR ano 



52026700 

52026800 
5:J0<J6qQi-l 



APPENfJ ") G0ERR(VEHH/6j; 

FTlFTvPFati THFN GnFHW (WRFSFQ 



.5y,,)i 



52027000 
52027100 

52027200 



T^ 



47 1 

48 

49 

SO I 

51 

52 

53 ( 

54 

55 

56 ( 

57 



m • 



>r 



10 

It 
u 

13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 



I 23 
24 
2S 
26 
27 
28 
29 
30 

31 ~ 
32 
33 
34 
3S 
36 

37 ~ 
38 
39 
40 



41 
42 



45 
46 
47 
48 



49 
50 



52 
53 



55 
56 



IK RESFQVERB ArJD FlLKlYPt=i FHkN ^ He.StU BASiC FILt 
IK HAVUNE^nBASE: and HAVtHESLURANGi: THEN liUEHH C "B ASI C 
ENn; '4 IF USING TriF WUKK FlLt 



♦M5;; 



W0RKt3] »s FILNAMU 
WORKt«] »w FILNAMii; 
nuTcouNT i» nuTrnuMT » 



IF RtSEQVERB THEN 

IF HAVERESEQRANGE 

REfilN ™_ 



?Qi 8! AGTIJAI. PaRAMFTFR rniif > fT 



AND HAVtNEWdASE THLK % CALL MERGE> NOT RESEQ 



WORKC113ISWORKC53; « DELETION RANGE 
W0RKr2U:»IF WORKCbJa-l THEN ELSK WOHK[S]; 
WORK r 3? 3 le »wnRk Ci?1 jM WDHKfft]; 



VERB :s "MERGE 
OUTCOUNT »= 2* 

RFVFRSFTnr. 1= TWiik-: 



; WORKLiOj := FXLI\AMi# 



ENO; 

W0RK£nt»(LL+SYSTEM)&aUTC0UNTt27>42<6 3SR(FaeTYPEs8)C3««7»U 
8;RCREVERSETOG)CSta7>13SRCNOT HAVE TNPUTF fLF ) C6 ; 47 ; n 



& (CONCISEBlTJt6»/(7513; 

RUNl J= verb; RL'N2 s= "CanDE "; ERKokv := UbEhCDDE; 

LITQUTC'WAIT. ">NDCHlF); A [ Brt3E-»3 3 ; =RE AL C T QG^nORD ) ; 



TEMP js 4. 



IF HAVEINPUTFILE OR HAVEauTPUlFlLE THEN A SEARCH DIRECTORY 
BEGIN 
IF HAVFINPU TFTLF 



THEN 



IF 



BEGIN 

ACBASE3 5= 2; A[Ba3E + 1J 5= FILinIAMU 

FTNnC I I &TAM[3i;41 ;n>n>Ml NAMi .pyi i^ANip ,i!SFRr.Clp ^); 

END; 

HAVEOUTPUTFILE THEN 
REGIN 



AC BASE 3 »*l + iixREAL(MAVElNPUTFlLE); 
ACBASe + 23 :s FILNA1-13; 

en d; „ ^ 



DOING »» 1; 

WAITFOR i» IAM; 

END X IF INPLT/QUTPUT 



ELSE 

Begin % refers to ^^iork file 

IF RFSFQVFRR ANH Ffl .FrYHr = 1 



FILES SPFCTFTFn 



VOID 
VOID 
VOID 



HFN RUN I : ="HL SE QB 



WANT := vdispatch; 

AC8ASE3 JaRUNi; 
DOING ;s 3; 



end; 
eojmsq »» not 
writeasterisk 



diskwrite(Es(»i); 

end; % CASE 



concise; 
»= concise; 



begin % CASE 1 

LABEL Dummy; 

TOGWHRD {g RnniFAMf Arr^A.SF.>. J] )j I REcn^FR TOCGt FS 
IF ACBASE3 NEQ 1 THEN % ii^PuT FIlE SEARCH 



BEGIN 

IF F\/FI^T5^ri 1 



IF 



LLQ Q THI-:n GOf.KRC A[[JA.SF4 I 1^>) ; 



EVENTS[{»3 ,C36»63 « 8 THEN 
BEGIN 

MATCHCRUMf'^RFSF'a 



I 



) Gy£RRCAr BASrflJ>57); 



52027210 

52027220 

Jx2il27^XL. 



520274C0 
52027500 



5202/700 
52027800 



52028000 

52028010 

■ 5202BiQfl,. 



5202620C 

52028300 

-52QgHaOQ 



52028500 

52028600 

.-5l2.02SZ0JI.. 



52028710 
52028600 
520 28900 

52U2V0U0 
52029100 

52029300 
52029400 
5 20^95i3.a 



52029600 
52029700 
520 2 960 0- 



52029900 
52030000 
52O30lCiL 



52030200 

52030300 

_5i01_0^ilil. 



52030500 
52030600 



52030600 
52030900 
52031000 



52031100 
52031200 
52031300 



52031400 
52031500 
52031600 



52031700 

52031800 

. 52031900 . 



52032000 

52032010 
-5 203 2100 



52032200 
52032300 
52032400 



52032500 
52032600 
520^2700 



3 

4 
5 

6 
7 

a 
9 
10 
11 
12 

13 

14 1 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 ( 

2B 

29 \ 

30 

31 

32 \ 

33 

34 

35 \ 

36 

37 

38 i 



41 ' 

42 

43 

44' 

45 

46 



47 
48 
49 



e 



55 
56 I 
5? 



>T 



T 



MATCH(HUM>"Mt:KGE 

end; 

IF i:-VFlvTS[<i].[i6;61 = 1 



Afli) Hfc5ii.«VLKr> Thr.h i> QA5IC HE^LQ 



52032800 
52032900 
5^033000 



1 

2 

3 

4 

5 

6 

V 

8 

9 

10 

11 

12 

13 

14 

f15_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

" 
28 
29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43" 



BEGIN 

IF HAVERESEGIRANGE 

R UNl«g"R ESE QB "; 



AND hAVENEWBASE fHtN GOERRC "BASIC "*15); 



52033010 
52033020 
5 SQ33n3n 



END> 
IF A[8aSE]=3 THEN % WAITFQH GurPUT FILL bCARCH 
BEGIN 



FlND(LL&lAMi;33»41Jn'0*A[flASE+23»US£RCUDE*USeRCQDt); 

ACBASE3 Jx i; WAITFOI^ «» lAM^ GD TO tXlTJ 

e nd; % IF WAITI N G FAR a u TPUT FII F 



520J304U 
52033100 
5 ^0 3 3 200 . 



5 20 3 3 300 
52O33A00 
■iPQJJSOQ 



END % IF ACBASE] NEGl i 
ELSE 

B££1N % CHECK iNr, aUTPUT FILE 



52033600 
52033/00 
52033800 



IF EVENTSEl] GTR THEN 
end; X IF AtBASE3 - \i 
FRRS W I s US ERCnOFi 



G0EHR(aCuaSE+2J'3J; 



52033900 

5203flOOO 

52034100 



WANT J5 voispatch; 

ACBASE] := RUNi; 

n uiNG ; = ?; 



52034200 
52034300 
5203 4a 00 



END CASE 1; 



BEGIN % CASE 2 « ADJUST AFTER CaNDE JCtJ EUJ 



52034500 
52034600 
5203470 0- 



LABEL dummy; 

if tVENTSCl]; 

BEGIN 



1 THEN % EtiJ OK 



52034710 
52034800 
52034610 



VERBJsAtBASEi; TOGWQRD »= BOOLEAN ( A tBAisL + 3] 3 J 52034820 

IF NOT ( HARDCUPy QR NQT wQRKFI lE ) THEN X wORK FILE ALTERATION 52034830 



IF FiLETYPEsB THEN % TYPE DaTa FILL 
MATCH(VERB*"APPEND ") LASTRECGKD := 
I.ASTRFr.nRO •*• CfJMMnNr.Fj.L.'rPI ^27] flsf 



52034850 
52034860 
52034870 



end; 

lAMJsO; 
FNDi % 



MATeHCVER8*"C0PY " ) LASTRECORC JsCQMWOnCELL. C2 1 527 j; 52O34880 
SaURCEFILFS»MAKEFN("lS'SLL); GOOOClBJ »»F ALSE ; NOS AVE »sF ALSEi 52034890 
end; -^ . 52034^00 



% IF ECJ UK 
IF BREAKOHWHU 

£_2 



THEN LUt:CLEAKCtCH*Ai:*J ); 



CA5 



52035000 
52035100 
52Q"^5200 



END ALL cases; 

GO TO exit; 

FRRORI GnFRRCwnRnifll 



52035300 
52035400 
52035500 



EXIT* 

END PROCEDURE COPYIT; 



52035600 

52035700 

.», * t*-htt •,,♦,,• nr.A,* * * • *,• * A *.**.* ■HA.*', * *.*.t.1-.ii**..t ii.AM.I'.'k.*.*.* *.*.t *.». Ji.53.0UQ0.OQ 



ARRAY A to 3; 



53000100 



PROCEDURE ScaCLCW^AJ; BODLEAN LCw; Mn««i Mi.uj# 3JVWWIUU 

%■******* * * ******************* * * * iir ******* i^ ****************************** %5 3 2 

BEGIN — _ ^ — ■■■■• '■■i-r .■ — .^_ — . . .. . . — : .; 53000300 



46 

47 

48 

49 

50 

51 

52 

53 

54 

55 . 

56 



REAL STREAM PROCEDURE aUTSUPR( I NPUT> OUTPUT V ; VALUE INPUT; 



BEGIN 

oi?=Lqc 



input; bs»=7fill; 



53000400 
53000450 

5 30Q0i }QQ 



sn»Loc inpot; oiiaauTpuTi 

8CIF &Cs" « THEN Sll»Sl+l ELSE 
BEGIN OSlgCHR; TALLY tsTALLY-HJ 



END); 



53000550 

53000600 

-5300Q7Q0 



outsupr:=tally; 

end stream prgceduf5e ootsupr; 

PROCrnURE SFOrOMfl Li>SFfOWORD W 



VALUE L L^ S Ffl wURD; H E A L LL^ S EOW QR D; 



53OOO8OO 
53000900 
53001000 



REAL 
.L A»E L 



COMMUNICATE 
PC» I» WORD* 

E fiR^ exit; 



(-145; 

SEQNO* 



INCR» segiout; 



53001100 
53001200 
539Q130Q 



^ 



IF FILENAME = THEN GUE.RNC"NC FILE"*1); 

IF D EV I CE P JQ^QO 1 H^ I N liUfcRH C "■S fc.i'.li.lF N C " » S i6 j j 



IF FILETYPE«8 THEN GOERRCOATA "»57j; 
IF PC »s AtSREG«*8ASE*At0ASE]].FF G£Q 3 
BEG I IV MSGPTR ta 1ft} GO ERR,? ENPi 



53CJUUC0 
530U1500 
5 3 00 1 5 2 



THEN 



530015^0 
53001600 
53001700 



BEGIN 



WHILE I LSS PC DO 

I 

I »= I ^ i; 



53001800 
53001900 



IF (WORD »» AtlNCCSRe63]).C2:ar a 
Ei.S F IF W O R D.ru ai * THFN , 



Then 



53002100 
530U2200 
5 30Q 23QQ. 



10 

11 

12 



13 
14 
15 



16 

17 



19 
20 
21 



END 



INCR 
ELSE GC 
I^HILE I 



:= WURD.L21 
ERR; 



27 i 



IF SE«ND • OR INCR 
IF INCR NEQ -1 THEN 
RFfiTK' TNrRFMrNT f- 



GTR 500000 OR INCR » THEN 60 ERR; 



53002400 

53002500 

-530Q26Q0- 



INC!RJ sraLAST 



SFQTNJ FNn; 



53002700 
53002800 



IF SEQNC iNEa -1 IHEN iLQaiT := S£«)NO 

ELSE SEQOJT := SLv^lASI 4 iNCriEMEM; 
SFQI AST i' a EQO UT " I inCHPN^iNT / 



53003000 

53OU3100 

-5 300 3150. 



IF SCHEDULINE THEN 
BEGIN XSEnS CUT SEO NUmBER FOR SCHEDULE LInES 
T i« niiT-siiPw(nFrcnNA/(sEQnt,Ti.i^nRKf m ){ 



53003200 
53003250 
53003^00 



22 
23 
24 
25 
26 
27 
28 
29 
30 



31 

32 

93 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

« 



TwXOlTCLL'WORKCOJ^i/NUCRLKj; 5300 3350 

END 53003400 

- — . E>.SE IF Dt,VKfc?CUN'iAC. UN JEV |>;£=ci t f)S, THEN I .SENQ SEQUENCE 5300341X1- 



OUTPUTNUMBERS(LCW*A[*]) 

ELSE SEGC0McLL#SEQQUT4INCREMENTt2*29Jl9]); 



X V OID 



ERR S 



WRITEASTERISK J= FALbt' 
SEQMODE != TROEi lAM 8 
ERRQRCSREG«lCw*A[ A Uf 



53003420 
53003500 
5300 3 600 



0; GO EXIT 



EXITIEND SEQ VERB*' 

" "" ■'■ BOOLEAN LCni ARRAY AC03J 



53003700 
53003800 
53003900 



)!;****♦*******_.. _ 

PROCEDURE BYE (LCW*AU 



%****1i*********-kii****1,1i*in,*i,-k-kiH,***ii**-k-k**-k**-k*-k**-k**iii,'k*1,*'k-i,ici,itiH, 



53004000 
54000000 
54000100 



BEGIN 
LABFI SKIP. F^TT; 



54000200 
54000300 
54000400 



REAL 



T) 



■ RFfiTN 



IF AC8ASE3 LSS JOO THEN 

at N UT A h fi„lqc n f: hus f R] 



CALL, 



54000500 
54000550 
54000560 



IF USERCOOE: 
IF FILENAME 
IF TPC r UNT 



Um:=o then go exit; 

ImEQ THEN 

N E Q OR i-'JLENAM fc N F Q S guHCEF IL E Th£ .N 



54OOO6OO 
54000610 
5 4POO6 2 



4S 
46 
47 
18 



BEGIN 



IF NOT NO SAVE THEN 
NnSAVEtaT R llEf fiOFRR<»' N Q S AVF" »4fl ); 



54000630 
54000640 
54000650 



end; 



IF QUICKBYE THEN 
- BEGIN 



54OOO66O 
54000670 
54000675 



49 

50 
51 
52 
53 
54 
55 
56 



litqutc'bye •'*1)^ go skip; 
end; 
w0rkcq3 »? "on for "j blankx wqrkeo 3 ); 



54000680 
54000690 
54000700 



TIME USE DCWORKC 13* TiMECUNVC TIME (l)*uOGONTIME*FALbE)); 

IF NOT SCHEDULINE fHLN 
TWX0uT(LL*WURr([Ql»33>CKLF); 



54000800 
54000890 
54OUO9OO 



WORKtOl l» "C&E USE"; BLANKCWQRKC03 ); 
TIMEUSED(WQRKCn*CHAR^j£: = TlMeC0NVCPT1ME#FAiSE)); 

TwX0UT(LL^WQRKC0]»33*CRLF); . 



54001000 
54001050 
50001100 



woRKco] 1= "£xt:cjre"J blainkc/iorkcuj); 

TIMEUbEDCWORKC rj'TIMtCUNVCETIME^FALSt:)); 



5400U50 
54001200 
5 4(JQ 12^Q 



•/ 

8 

9 
10 

n 

12 
13 
14 

t 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 



WORKtOJ »s "10 TIME"; BLANK C WORK [03 ) ; 
TIMEUSEDCWORKCn»TlMECONVCIOTOT# FALSE)); 

Tw xQuTri„Lf Wn R « fn]*33^cK i d ; 



WORK[0] S5 "OFF AT "^ BLANK(rtaR.UO])> 
TlMEQFDAYCWQRt<ClJ*TlMi-:CQNV(TlMECU'TRU£)); 
I F NOT . .SCH£0 , U Ll. N t;. TH . i . N — ^ _ 



54U01260 
54001270 

■^aOQiaflo 



TWX0UTCLL»W0RKC03*ia'CRLF); 

WQRKC03 j» «GaooerE"ii blankcwqrkco]); 

WnRKtIl 19 tlSFRCOnEj BLANKf ^QRKC l] ) t 



54001300 
54001400 
54001490 



54001500 
54001600 
54001700 



TWXOUTCLL*WOrtK[0J#16*CrtLFi; 
WQRKC0]:=LIATI:;; 



% VQ I Q 



54001800 
54001810 
54 00,1820 



SKlPi 



rwxouTCLL»woRKto]»a*ii); 
writeastehisk:bfalse; WORKCO] »»"<».«• 

IF A CBASFl LSS 50 TH EN % NflT HFI LP 



54001630 
54001900 

5aQu?onn 



BEGIN 

TINXOUTCLL'/^QR UOJ/ j/-l); A OJSCUNNECT THE LINE 
TFNHT S,CHF.PULIiME, rH£N QQ CXTT^ % rjEM.WK.FlL [N 



54002050 
54002100 
niSCN£J.54002iliI. 



end; 



END, 



■ CHARGE IS TlMECi::iNVCPTlM(C»FALS£) 



T:=LL&13[ J3:4iJ 7i} 

REMOVEFILt(r'iiOUHGEFlLt.8 = MAKF>NC"lS'SLL)^US£HCOU£); 
WFMnUEFTI Lf T,SflHRrEFlLL.C6!36 1 . ii.SF HCni^T ■> ; 



54002120 
54002150 
-5 400217 §- 



54002200 
54002300 
540 Q240 



REM0VEFlLtCT*S0UKC£FlLt.&"P''[12S42:6],USERc0DE); 
REM0VEFILECT*S0URCEFlLt&"T"C12l42»6],ySERC0UE); 
RFMOVEFTLEfT^SOuR(^EFlLEft"Q''ri38«i-^>63^USFRrOnF3i 



0- 



54OO25O0 
54002600 
54Q027QQ 



S0URCEFILE.L36: Ik} J= Oi; 

REMGVEFlLtCT^SOUKC£FaE&"H"tl^:^2;6J,o3£f<CODE); 
IF SCHEQULINE Thlr^iM Q 1 ^COKNEC F UCw ^ A ) , 



54002800 
54002900 
5 4 U 0,2 9 b 



FILESOK 
EXIT* END bye; 



re 



B (FILENAME J»0); TPCOUNT ts o; 



X*********** ********************* It********************* ******* 



^ "WW-WWW F« JTWWW ITTfW w W Tt W IK ^ If ^ If W W TT K,yr ^K It HI W :m W " If 

ROCEDURE MAKENEWFILE(A); ARRAY AfOJi 
**************************i,*i,******** 



54003000 

54003100 

******** **55000000 



***•»*********■******•*•* 



BEG IN 



55001000 
**********5500200C 
55003000 



LABEL NEXT>ERR*EXITi 

REAL t*maxsreg; 



55004000 
55005000 
55 0Q6 QQQ 



50 
51 
52 
53 
54 
55 
56 



DEFINE 

NAMEWORD 

TYPEWURD 



SEARCHCOUNT 
SAVESIZE 



AIBaSE ]rf> 
ACBASL*] }»p 



At8ASEf2J)«* 

sa; 



% FILE NAML 
X FILE TYPE 



* NUMBER OF DIRECTORY SEARCHES 

* NUMBER OF WORDS USED ABOVE 



55007000 
55008000 
5 50P9Q Q0 



55010000 
55011000 
550120QQ 



DEFINE ERROR(ERRQRn = 
BEGIN 
MSGPTRI=ERRORi; GU 



Tu err; 



550130C0 
55014000 
55015000 



END#; 
STREAM PROCEDURE MSGCAREA^TiJG); V^LUE TUg; 



55016000 
55017000 
55018000 



BEGIN 
LABEL XT; 

dh- ar ea; 



55019000 
55020000 
55021000 



xrr 



T0G(DSI»15LIT« DUPLIGATE NAME"; 
0SI»15tIT'V CREATED "i 

END STREAM PRQCEOURE MSGJ 



JUMP OUT TU XT); 



55022000 
550230.00 
5502400 



1 

2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 
16 
17 
IS 
19 
20 
21 
22 



23 
24 
25 
26 
27 



29 

30 
31 ' 
32 
33 
34 
35 
36 
37 ~ 



38 
39 
40 



41 
42 
43' 



45 
46 

47 

ta 

49 
50 
51 
52 
53 
SA 



S5 
56 



CAbE DOING 
B£m N 



OF 



BEGIN % CASE • SYNTAX CHECK 
ir FILENAME NEQ TH£N 
IF TPCOIINT MFQ n UR KTirNAMr 



kta ?ianW('t.-Fft L TUPM 



IF NOT NOSAVE THEN 
BEGIN 
NQSAVE := THUF > 



GGLtiRC'lva aAVE",^Rj; 



end; 

MAXSREG l« ACSRSGJ«6ASE-AtBASE]3 ,C18S153 + SHEq* 
CI FARCAEBASElfSAVFSTln; % 2r«n fjUT "STaikh WORn^ 



FOR SREG:sSREG+1 STEP 1 UNTIL MAXisREG DO 

BEGIN 
TF A[>SREri],r3n] NEQ THEN % A t, PhAHIj. f T C . ^ iTR J NG 



BEGIN 

IF NAMEWORD»C THEN NAMEWGRO « «A t SREG 3 ELSE 

TF T YPFWnRnar THEN TVPfi WHRn t a A f SHeq 1 (ri S£ 



ERR0R(8); 
END % IF ALPHABETIC STHING 
E L.' ^ E I F A [.SHEG 3 -"»" THEN 



BEGIN 

IF TYPEWQRDsO AND SREG LSS MAXSREG THEN 

IF ArSRFflta.SRFti-l-n ,r^I-Jl r,TR n THfN 



BEGIN 

IF (T:sFlNDALtTTER(ACsRtG],7YPE lABLEl. 1 3 ,NUMDF T YPES) } XQ 
BEGIN _^^____ 



THEN 



TYPEWORD!" T&Ul:47!Ui % MARK ALKEAQY CHECKED 

GO TO next; 

end; % IF IN THK TYPfTABLE ___^ 



end; % 

ERRORCe); 
END % IF 



IF ALPHABETIC STRING 



•« i fi 



NEXTt 



ELSE ERR0R(8); * NO OTHER lNf»UTS ALLOk^ED 
END SREG loop; __^ 



IF l\|AMEWORD«0 THEN GOERRC'NO 
IF NAMEWQRn.C3t31 fiTR a THF!^ 



NAML"»6); % NO FILE 
GDERHCNAMF^r;Rn.<j2j; 



NAME GIVEN 



IF FINOAWORDCNAMEWORD*RESWRDTABLEtl3*NUMLFRESWRDS3 

G0ERR(NAMEW0R0#29); 
IF TYPEWORn a Q THFN TYPFWORn |g7 FLSE % nFFAULT IS 



BEGIN 

IF NOT BnOLEAN(TYPEkvC]ND.Cl«lJi 
BEGIN 



NEQ THEN 
SEOUENCF 



THEN :* NOT PREVIOUSLY lOcATED 



if (t»«f-in0aw0rd(typew0§0»typetaelec|3'numgftypes))»0 

g0err(typewcrd#20); 

end; 



THEN 



TYPEWORD J' ABS(TJ; 

IF CHECKS I TC T YPE WORD" 1 / RE STHl C TED LANGUAGES ) 
G0ERR(TYPETABL£[TYPEWQkD3 ,Ltia?,2M i\9 }i 



ThEN 



end; X CHECKING FILE TYPE 

NAMEWORD»CH53t*0; ••■■■.-:.' ^ '"' ■ 

GENFILINE(NAMEW0RC»TYPETABLE[TYPEW0RC3)i 

FlND(LL&IAM[33:4U7 3*0,NAMEwC«C#LSERcaDE,0SErtC0LE); % 

FlNDCLL&IAM[33t4H7]>0/NAME^UgD,L6}363/U^ERCQDE#LSERC0DE); it 



FILESOK I* FALSE; 
TEMP t» SAVfSlZE; 
oniNfl l» 1; 



SRC 

OBJ 



550iJ50C0 
550i:6000 

^^gg/ooc ■ 

55028000 
55029000 

■i'ioaoooo... 

55031000 
55032000 
-55O33Q00-,. 
55034000 
55035000 
550 3 60 00--. 
55037000 
55038000 
55039000--, 

55040000 
5504100C 

5504 2 000 

55043000 
55044000 

-■5^^ 4 50 

55046000 
55047000 

ssoqaooo 

55049000 
55050000 

5505 10 00 - 

55052000 
55053000 

55Q5a000 

55055000 
55056000 

55057.Cmo 

55058000 
55059000 

_iS.0^0QiLCL 

55061000 
55062000 

-55063nQjQ-— 
55064000 
55065000 
55066000 

55067000 
55068000 
55069000 
55070000 
55071000 
55072000 
55073000 
55073100 
55073200 
55074000 
55075000 
55076000 
55077000 
55078000 
55079000 
55060000 
55081000 
55082000 



11 
2 

3 

4 
s 

6 
7 
8 
9 
10 



m • 



h 



2 
3 

4 
B 
6 
■/ 

e 

9 
10 

11 

12 
13 

14 

■15 

tie' 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 
30 

31 
32 
33 



34 
35 
36 

37" 



38 
39 



41 

42 



45 
46 
47 
«8 



49 
50 
51 
S2 
53 
M 
55 
56 



WAITFOR Js IAM; 55083000 

end; % CASE 5508^000 

' t « f » , ')'i(jfl5non 

55086000 



BEGIN % CASE I - RESULTS OF DIRECTORY SEARCH 

IF EVENTSCn GEQ THEN NAMEWORD . t U U »«! ; * LRROR 
IF (SEARCHrntiNTtBSFARrtHr.nu^TH.iigp thpn 



FLAG 



begin 

MS6(W0RK#NAMEW0RDtCl5 13 )> 

TwxniiTfLi >i^nRK[ciM5>u; 



X bUlLD Mfc:i,j,AGE FQP USER 



IF BQQLEANCNAMEWORD.tnU) THIN % ERROR 



BEGIN 

t, TNFCLEAR(LCW*AC*:n? 



MSGPTR 5= 3, 
WRITEASTERISK ;= THUE' 
IF SCHEQULUE THEN 



IF NOT NOSTOP TWEN SCHEDERROK; % TERMINATE SCHEDULE 

60 TO exit; 
en d; 



FILENAME S« NA^Ew^RD » 1 6 I 4<f 3 ; 

filetype i- typewurd; 

■ ASTRFCriRD ;» Pi 



INCREMENT «» 100; 
IAM l« VSETUPflLES; 
DOING l» Of 



END % IF ALL SEARCHES DONE 
ELSE 

BEG IN 



WAITFOR je iam; 
GO TO exit; 

end; _^_ 



END CASE 1; 
END ALL cases; 

GO tq exit; 



ERRi G0ERR(ACSREG3>a); 



EXIT; 

END PROCEDURE MAKENEWFRE; 



55067000 

■i^oflanon 

55069000 
55OVOOOC 
5509100C 
550V2000 

550^3000 
55094000 
55095000 
55096000 
55097000 



SOURCEFILE »« MAKEFNC "IS'^LL)/ 

MAKEFILE CLL&t 3 C33U1 I r3#l,SOURCEFlLE*LSFRcOD£*FIL£TYPE#-2); 

nnnnnRj i* rAysf: 

NOSAVE J5 false; 

OBJECTFILE »« 0; 

SE9LAST «s S EQI N »- Q i 



55098000 
55099000 

"isiQoono 

55101000 
55102000 

-5 510 3 Q -- 
55104000 
55105000 

-55106000 

55107000 

55108000 

5510900X1— 

55110000 

55111000 

5S1120QQ 



55113000 
55114000 

55115000 



55116000 
55117000 
■ 5 5 U6qo o. 
55119000 
55120000 
55121QQ0 
55122000 
55123000 
5512#nOQ 
551k:5000 
55126000 



%******•**»•******•*****•••*••»»*»*»*•• »*****i»i>*i>**itilr**ii.****»***»»it»*»*JtC)^OQQQQQ 



PROCEDURE 



AC03; 



56000100 



LlSTIT {LCW#A); BUQLEAN lCw; ARRAY «iv4^ aovuuiwu 

X ************♦**♦#♦***♦*****♦*****»•******#* *******#******#************x56000 200 

iMflOSQO 



BE GI N 



LABEL PRNT/ CASES^ CASF4* f.RH, Lxlr i 
REAL PREVW* WQRD/i TYPE» C^AS* PC 
BOOLEAN LIB* SQUASH» CHANGES^ NuMBEHEU 



STREAM PRaCEDURENQCHGMSQC WORK); 



* display; 



56000400 
56000500 
5 6OOO600 



BEGIN 



PI »»W0RK; DSI»29LIT«N0 CHANGrS SlNrr LAST UPUATE.**; 
rwn t 



end; 

CASE DOING 
BEGIN 



56000700 

56000800 

^5 60Q Q9QQ 



OF 



BEGIN % DOING * 
PREVW l» »1{ X Al LHte n AS PARAMFTfR- 



56001000 
56001100 
56001,200 



• *•*••••••••«■••••*** 



.« f , 56001300 

56001400 
56001500 



m # 



^ 



10 

11 

12 



13 
14 
IS 



16 
17 
IS 
19 
20 
21 



23 
24 
2S 
26 
27 



26 
29 



30 
31 " 
32 
33 



34 
35 



36 

37' 



39 



42 
43' 

«4 
45 
46 

47 
48 
49 

50 






S5 
36 



WQRKC2]:=W0RKC4]:=USF-RC0U£i wUrtK L 3 ] 5 =30UHCtF i lL/ 
PC »= A[ SREG 1= bASt - A[BA3k.J] .FF; 

MATCH(VFRrT a r i FrArssFui . rg ; ^ I 1 . r ^ ia? ] ."f,|:,n a y" ) 



IF 



BEQIN 
lAM 8 
RFfilN 



DISPLAY »* TRUE' 
VPRINT THEN 



GO TO PRNTi end; 



PRNTj IAM j= VLISTJ 
ACbASE] Js c; 

WR I TEASTFR I SK 



'= THUFi 



end; 
wi«»2i; 

WHI UE I 



Lss PC nn % pirx IIP all pARAMrTP R«; 



BEGIN inccd; 

WORD »» AtINC(i>RtG)]; 
IF WpRD.rgHI ' n THFN 



ELSE 
IF 

EL S E 



TYPE ;= 



% (NUWB&R OH -Nlil^BtH 



WORO.tH23 " 3 THEN TYPE i* 1 % +NUMBER 



IF rtORD.ri:2] 
ELSE 
TYP E 



1 [HEM TYPL »= 2 % SPECIAL CHARACTER, 



CARESS 



«= 3. 



% ALPHA HUHU,, 



CASE TYPE 
BEGIN 



0F 



BEGIN '& TYPE = 0. 

IF PREVW GEQ PRLVW J = AUS C t'.ORU j THEN GO tRh> 

W n Rt<CWI ] « s ir CH A Rg"-" THEN CH A R 8 a -AbS C WQRQ 3 



IF INCCWn GTR 
END CASE 0; 



30 THEN GO ERRl 



£L- ^£ word; 



GO 



TO ERR; 



% TYPE = 1 



REGTN 



% TYPE 



JU. 



L 18 ««{CHARl SWORD. CF )«"/♦•* 
IF CHAR » "**• THEN SfiUASH 
FLSE 



I* TRUE 



IF 

ELSE 

If 



CHAR 



'»" THEN Numbered :* true 



CHAR s "$ 't THEN CHANGES 1= TkUH. 



%, 



END CASE 2i 



BEGIN % jrpl s 3. ALPHA WOHO. 



b6001600 
56001700 
S0Q01710 



56001720 

56001800 



56002000 

56002100 

■..-S>i»Og22QQ 



56002300 
56002400 



56002600 
56002700 

56002900 

56003000 

-5iLQiIU.aQ- 



56003200 

56003300 

■ 56003^00 



56003500 

5600 3600 

.56003700 



56003800 
56003900 
56004000- 



56004100 
56004200 
56004300 



56004400 
,56004500 
JiLOaiiLQil. 



56004700 

56004800 

JiJilQA9.0Q_ 



56005000 
56005100 
560052011- 



W0RD,[i:5]:s 0; 
MATCHCWORD* "END 
, BEGIN 



56005300 

,56005400 

56005500 



) 



AtSREGJ I* WORD t« tens; 

TYPE «» 0; 

GO TH nASFSl 



56005600 
56005700 
56005800 



end; 
match (word* 

BEGIN 



56005900 
56006000 
56006100 



"FILES 



« LIST FILES 



IAM J» VLFILES; 
COMMONCELL «» PC 
BO EXIT? 



56006200 
56006300 
56006400 



u 



end; 

MATCH(k*ORD#"Ta 
FLSE ^ 



56006500 
56006600 
56006700 



; CHAR 



MATCH(W0RD#"CHAN6ES"J 
■ELSE.-'''^' 

MATCHiWORD«"SQUASHg") 



CHANGES! -TRUE 
ML ASH IpTRUE 



56006800 
56006900 
560Q70Q0_ 



56007100 
56007200 
56007300 



10 

n ' 
12 

13 



18 

19 

20 I 

21 

22 

23 ' 

24 

26 

26 ' 

27 

28 

29 t 

30 



33 

34 

35 ( 

36 

37 

38 ( 

39 



42 
43 
44 ' 
45 



e 



50 1 
51 
52 

53 ( 
54 



h 



9 
10 



12 
13 
14 

iie" 

17 

18 

19 

20 

21 

Z2 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43' 



45 

46 
47 
48 
49 
JO 
51 
U 
53 
54 
55 
56 



ELSE 

MATCH(WOHD^"MJMJE«E") 
ELSE 



NUMBERED : = 1f<UE 



56007400 
56007500 

stmu-tsm- 



BEGIN % NOT SPECIAL ^ORD - MUST BE FILE NAME. 56007700 
W0RKC3 + REAL(LIB)J J« WORD; 56007800 

I Tfl Iff FAI Se; «>isOQ7onn 

W0RK[i2] := 0' 56006000 

END HANDLlNb FILL NAME; 56008100 

Vm HF CA.SF - ii : 560Q8-£Xm 

^ ..».....,.,.. »...*........,.. 56008 300 

END ALL CASES; 56008400 

END ALL PARAMFTFflSt HAOQfl=.nn 



IF WORKC33 a THEN bUERIU "NDf ALE 
IF (PCi»WI-2U = THEN 

BEG IN 



n; 



IF TPCDUNT « 
BEC3IN 

IF CHAN8ES 



THEN % UPDATE NOT REQUIRED 
THEN a; NO CHANGES IF TPCDUNTcQ 



56008600 

56008700 
5600a8fla 



BEGIN 

nochgmsg(work); 

TWX QUT(LL yWURKrP J> ?9' D 't 



56008900 
56009000 
«^A009inn 



I AM ts 0; 

GO T8 exit; 

end; 



END % IF 
ELSE IF NOT 
BEGIN 



56009200 
56009300 

56009500 
56009600 
.5_6imS.7_Q_Q 



TPCOUNT 
CHANGES 



= 
THEN 



« LIbT PRCGM. needs PARAMS 



W0RKC21] 
W0RKt2g3 

PC »g ?; 



is 0; 

le TEN8 



56009800 
56009900 

-s^maoixa. 



& 3[l!46»2j; 



end; 
end; « if PC = 

MOVE (Ift^t^ORDS.rTKAMUHASLf U1»riUkKr'n); 



56010100 
56010200 
56010300 



DOGMOUSEtLLl »« WORKCO] la O; 
W0RK£nf»(LL + 8YSTEM) & PCC27!42;6] & R( CHANGES) 1 1 5A7 1 1] 
— « RfSQi!ASHU9t4/it 1 a. RrPTi rrvprsa^f Jifl7ip 



56010400 
56010500 
56010600 



.!£. 



& RCNUMBEREU}CiH47! n i RCwORKCiiJ NEG 0)[6:47}n 
& R(DISPLAY)C7J47S 13 <i R (MON I TORB IT ) [ 9 J 47 s 1 ] ; 
INQRKr21 Ngfl C ANn TPCUUNT blR Q THflv WLHK [ 4 ] ; rl.SFRl nr ; 



56010700 
56010800 
56010900 



DISKWRITE(ESPl); 
RUNl J« IF TPCOUNTi 
RUN2 U '*CAN ,QE !LL 



56011000 
56011010 
56011020 



iO OR W0RKC23s0 THEN 

FRRSw i» usERcnor; 



"QUIKLST" ELSE "LIST ♦'; 



IF 



W0RKC2] 

BEGIN 
WANT »» 



NEQ C THEN • M^AN^ LIST THE wGRKFlLE, 
VCLQSFWQRKTARLt--; 



560U100 
56011200 
56Qin00 



ERRSw I* filename; 

DOING l» U 

IF TPCOUNT NFQ Q THElVi 



56011400 
560U500 
560U6Q0. 



IF ACBASE] NEQ ThEN % PRINT HEADING 
BEGIN 
TWXQUT ( LL^I^ ORKCO Jf Q/ ^?; 



UfPATEBIT i* li % UPDATE IN PRQGRF.<;S 



56011700 
560U800 
56Q119QQ 



GENFILINE (FILENAME* TYPET AULEU I LET YPE J 3 ; 

GO TO CASE*; 

end; : 



56012000 
56012100 
56012200 



END % IF WORKFILE 
ELSE 

BEGIN X FILE N AM E (ilVK N 



56012300 

56012400 

-5601 25 00 



FIND(LL&IAMt33iai:73#0*l«0aKC33#WDftK[43#USERC0DE); 

ACBASE+n »» W0RKt33; % SAVE FILE NAME 

TEMP m nOT N G i ' M 



56012600 
56012700 
56012800 



56012900 
56013000 

sftonmo 



1< 



7 
8 
9 
10 



18 
19 



24 
25 
26 ( 
27 
28 
29 ( 



34 
35 I 
36 
37 
38 I 



41 ( 
42 



44 < 

46 



47' 
48 



49 



54 
55 
56 ( 
57 



n 

2 

3 

A 

6 

6 

7 

8 

9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 

: 



21 
22 



23 
24 



2S 
26 



27 
28 



29 
30 



31 
32 
33 

34 
35 
36 



37 
38 
39 
40 
41 
42 



46 
46 
47 
•8 
49 
50 
51 
62 
53 
M 
55 
56 
57 



kvAITFOR J» lAMi 

GO TO exit; 

-E N D; 



END CASE O; 



BE GIN % DOING « 1 



WANT j= vdispatch; 

DOING := 2; 

XNH CliE I f 



EKKSw j= UiiLRCODt; 



BEGIN % DOING « 2 

IF BOOLFANttiPDATFBIT) AMD EVENTSm 



BEGIN 
CANCELCKPTCA[*J ); 

end; 



1 them a llPnATF OK 



SOUHCCF IlE 



MAKEFN("li)"*LL); 



IAMI«0; IF BREAKORWRU THEN LlNECl.EAR(tCW*At*n; 
END CASE 2; 



'« « » t ». «# , «« « « ».» « 



» » « > 1 1,. 



«..».■« « « ■ « 



BEGIN X DOING a 3 

IF EVENTSCl] LEG THEN GOERH( A[ BAb£;+ 1 :| , ^)i 

lAM != vdispatch; hhrs^ t= iiSh-KcnnE; 

IF AtBASE] NEQ THEN % PRInT HEADING 

BEGIN 

- TWXnuT( l,.l iWnRK£03»0»g); 



I «* FNONLYCL[OJ/PC#ERRi'iNJ 

twxout(ll*lcc]'I*nocrlfj; 

GO TO CASEa; 



A[BAbE+i jf 1 j; 



end; 
end case 



3; 



CAbEAt 



BEGIN % DOING = 4 (DUMMiT CASE) 
FnjMSfi>:fTRUE; HRlT£.AST£titaK; = FAI.,,Sfc J 



T1ME0FDAY(W0RKC13»TIMEC0NV(TI><E{U'TRUK>); 
WORK [03 l«0 ate; TWX0UT(LL#W0RKC0]»18*2); 

fn d case ; 



-OH 



% 

end all 
exit; 



cases; 



ERRI G0ERRCW0RD»8); 

EXITJ 

end HF LISTIT; 



56013200 
56013300 

'aftOiBgnn, 



56013500 
.56013600 
_5A5_LlZ(m.... 



56013800 
56013900 

,56014100 
560H200 



56014220 
56014300 
bfjQlMJj.jJX. 



56O14400 

56014500 

.56014.60.0. 

56014700 

56014800 

-560l4g.O-Q, 



56013000 
56015100 
5 6 1 5200 . 



56O153C0 
56015400 

56015600 
56015700 

.^ftQiseno.. 



56015900 
56016000 
560l6t-aa- 
56016200 
56016300 
_5iLiU6JiflX3-. 



,56016500 
56016600 

-56016700 
56016800 
56016900 
56017000 



PROCEDURE EXECUTECLCW#A); BOOLEAN LCW; ARRAY ALOJ; 57001000 



BEGIN 

X HANDLER FOR >*RUN"> '^EXECUTE" AND ♦^COMPILE*' REQUrSTS 



57003000 

57004000 
57005000 



REAL t#maxsreg; 

LABEL CASEl*CHKTYPE#HUNN>ERH>£xir; 

DEFINE 

VERBWORO = aCBAS£3I# % VERB "NAME" 

NAMEWORDCNAMEWORDl) > AC BASE* 1*NAMEW0HD n », it MFlOfFIO 



57006000 
57007000 
57006 000 



TYPEWORD 

COMMQNWQRD 

STACKWORD 



= A[HASL+3]»» 
= A[BASE+4J», 
- ACBASE*53/t^ 



COREWORD 

PROCESSWORD 

IQWORO 



X FILE TYPE 

* COMMON VALUE 

% STACK SIZE 



57009000 
57010000 
57011000 



57012000 
57013000 
57014000 



s ACBAS£+6]#^ 
e ACBASE+7 3#» 
g AIBAS£463»* 



* CORE LIMIT 

* PROCESS LIMIT 

* I/O LIMIT 



57015000 
57016000 



2( 

3 
4 

s( 

6 
7 

s{ 

9 
10 

11 < 
12 
13 

ui 

15 

16 

17 < 

18 

19 

20 4 

21 

22 

23 ' 

24 

26 

26 f 

27 

28 

29 I 

30 

31 

32 % 

33 

34 

35 I 

36 

37 

38 f 

39 

40 

41 4 

42 

43 

44 f 

46 



46 

47 

48 

49 

50 

61 

62 

53 

54 

55 

56 « 

5? 



tl 



h 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
(15 
16 
17 
18 

is' 

20 
21 



22 



24 



27 
28 
29 

30 

31 " 

32 

33 



34 
3S 



39 



50 



52 



56 
56 



SEARCHTYPE 

SEARCHCQUNT 

S FA RCHTO GGIF 



SAVESIZE « io#; 

DEFINE TRANSFEREflUATIQNVALUES a 



Ai:hASE + '?3 .133J15]#, % 
A[BASe + 9].[la:i5])(i/ % 



TYPE FROM 
^U^«BER OF 
TOfifiLP FQR CASE? 



HCADER 
SEARCHES 



i rtORDS USED ABOVE 



570iaooo 

57019000 

570^Qnon 



BEGIN 

COMMONVALIE 
STACKS IZF 



57021000 
57022000 
57023QQO 



CORESIZE I* 
PROCESSLIMIT »» 
lOlI HI T LS. 



»= CQMMDNWORO; 
1= ST A CKtNC RDi 



coreword; 
processword/ 

I DWORD; 



57024000 
57025000 



57027000 
57028000 
57Q29QQfJ 



END#; 
D E FI N E ERRORC E RRORI J 



BEGIN 

MSGPTRIsERRORU 
F N P y ; 



57030000 
5^031000 

■)7g32nof) 



60 TO ERHi 



57033000 
57034000 
57O35Q00 



CASE nniNG (IF. 



BEGIN 
BEGIN 
LABEL. 



57036000 
57037000 
5 70 3 800 0- 



% CASE 
TYPI 



SYNTAX CHECK 



57039000 
57040000 



REAL word; 

BOOLEAN WITHT0G6LE,LIBT0&GlE; 

B O OL EAN PROC E DUR E F I NONUM B ER ( A* M A XSRlG ) t VA L.l j t MAXSRbG i 



REAL MAXSREG; ARRAY A[0]; 
BEGIN 
% "SREG" Will PniNT TO THE JQCATION nF THg NiUmBFR IF THERF TS nMF 



57042000 
57043000 
5704 4 Q 



% "FINDNUMBER" WILL BE TRuE IF A (vUMBER IS LOCATED 
% CHARACTERS ARE SKIPPED (OPTIONAL ChAKACTERS) 

findnumber»=false; % mark as error at .^tari 



57045000 
57046000 
57047 QQQ 



FQR SREGJkSREQ*! STEP 1 UNTIL MAXSREG 00 

BEGIN 
TF ArSRFflT.rM«^1an ThFN % .vUMrwtr |mPM-r 



570«8000 
57049000 
570'iOOnO 



BEGIN 
MAXSREGlsO; 

sm 



57051000 
57052000 
57Qftl000 



FlNuNUMdER's TRUE' 



57054000 
57055000 
570 i ?6Q Q0 



ELSE IF NOT(AtSREG],Cl!23»l AND A tSR£G3»»'»" ) THEN MAXSREG««0; 57057000 

end; 57058000 

SREG>aSREG"i; % BACK UP FROM END OF "FOR" STATEMENT 'SyQ^9nnn 



END PROCEDURE FINONU^^BEr; 



CLFAHCACBASE^n^SAVESlZE'l W * Z^Hn nUT "ST^CK" ^QRnS 



MAXSREG m 

verbwOrdi* 

FOR SREG ti 



57060000 
57061000 
5 7Q 6200Q 



ACSRtG»sBASE-AtBASE]l.tl8ilS3 + SREG* 57063000 

VERBTAeiECACSRCGJ.C9lV]3,C6«423; * VERB NAME FROM TABLE 57064000 
SREG-H STEP i UNTIL MAXSREG nn 57Q65nnr) 



BEGIN % EXAMINE THE PARAMETERS 
IF At SREG].[3!3] GTR THEN * ALPhABEriC 
BEGIN . 



STRING 



WORD »a ACSREG3.t6»42J; 

If WITHTOSGLE THEN % '♦wiTH' 



:eoe[ 



57066000 
57067000 
57068000 



PRECEEOED THIS WORD 



MATCH(WOR0»''LlSriNG") 
BEGIN 
M A TCH ( VERB WORD » "COMPILE*') 



57069000 
57070000 
57071QQQ 



END 
ELSE 

BEGIN 



CQMMON^URD ta-1 ELSE LRRORCw); 



57072000 
57073000 
570<'4q qo 



% CHECK LABEL EQUATION VALUES 



57075000 
57076000 
57077000 



ri 

3 
4 

M 

6 
7 

9 



• • 



h 



12 
13 
U 
15 
16 
17 
18 
19 
20 



12 
23 
24 
ZS 



26 
27 



29 
30 



31 
32 
33 
34 
35 



36 

37" 

38 

39 

40 
41 
42 



43 
44 
45 
46 
47 
48 



49 
50 
51 



52 
53 
54 

55 



56 
57 



^~1« 



IF NOT FlNDNljMBLRCA*MAXSKtG) THEi\ ERRORCfl); 
MATCH(WORO^"STACK ") STACK/^ORU != A C SRFG 3 . [ 36 J 12 ] 
h^ATf : H(wnKn*"CnH£ "i CnfiFWOHO ;s at c;^t:r.], r :i^«m] 



MATCHCWORD^^PHOCESS") 
MATCa<WORD>"IQ ") 
MATffHrwnRn.»»rnMMnM w) 

G0ERR(W0RD*8); * NONt 
end; % CHECKING UABEL 



ENQ :t IF t^ITHTQ^iCil c; 



PROCESSWORU^* ACSREG3X60 
IQWORO »s AtSR£G3x60 

OF THE ABOVt 
EQUATION VALUES 



ELSE 



57u/aooo 

57079000 
')70aQ000- 



ELSE 
EUSE 

EISE 



57081000 
57082000 
■^7083000- 



ELSE MATCH{WQRO#«WITH •• ) 

ELSE MATCH(W0R0#"LI8RAFO"> 

BEGIN . 



WITHT06GLE «» TRUE 



57084000 

57085000 

.-5l7MAIIQI3. 



IF LiBTOGGLE OK NAMEWDHD t ]=Q THEN LHRGHC83i 

libtoggle := true; 

-BID . 



57087000 

57088000 

-5708900X1- 



TYPJ 



ELSE 

BEGIN % CHECK FaR FILE ttPES'FILE NAMES 
IF T»«rTK'nAwn»nf ArsftEflV, rv prTARi rri insiii>4nFTYHF«; wo 

BEGIN % WORD IS A FRETYPE 
IF TYPEWORD NEQ THEN EHRURC8); * UUP TyPE 
— TF NOT HUni FA,Mri ,ri » 1 J) j^Fi ^ fln(--KH f "t VPF ".^<j); 



57090000 

57091000 

- 5709200 U 



ItiLiL 



57093000 

57094000 
57095QOQ 



TYPEWORD»«ABSCT); 

IF CHECKBITCTYPEWORD- 



57096000 

57097000 

- 5709 flnQlL-. 



END % IF FUE TrpE 
ELSE 

RFPiTN % CHECK FIlF NAdES 



■i#rfstrictedlanguag£Si then 

NOT PFRMTTTfO TufS , AMf^llflfiF 



57099000 
57100000 

57iQinnn 



IF 
IF 

-in 



NAMEW0R0£REALCLIBT0GQLE)3 NeQ THEN ERRQRC8); 
NOT LIBTOGGLE THEN % MFIO, 6 CHRS, MAXIMUM 
wnRn . rit^lAI NFQ « " Thfn iRan^ttip^i t a runs MA^ 



57102000 

57103000 

-571Q4aX)Xl. 



NAMEWCRDCR£AlCLIBTOGGUE)]» 
END * FILE NAME CHECK 
FN O % F ILE TYP E OR F It . K NAME 



= tNORD; 



57105000 
57106000 
57107000 



END % ALPHABETIC STRING 
ELSE IF ACSREG]*"/" THEN 
BE GI N 



IF LIBTOgGLE Or NAMCWUrDCOJ^ 

libtoggleistrue; 

END 



'0 THEN ERRUHCB); 



57108000 
57109000 

57111000 
57112000 
-a7l.l.lfl0Q . 



ELSE IF ACSREG]=">" THEN X CQhPIlER NAME AOBREVlATlON 
BEGIN 

IF SRE6*MftxSR£G THEN J H K i ( <i ) ELSE WQRQ 8 «C aCSR£G t aSREG^l 1 ); 

THEN 



57114000 
57U5000 
57II6QOO 



IF Ti=FInDALETTER(WOR[)*TYPlIABLE[i J,NUMDFTYPES)XO 

ERR0R(20); % NOT FILE TYPE; 

END 



57117000 

57118000 
57119000 



GO TYP; 



ELSE ERRORCS); 

END sreg loop; 



% NO OTHER ENTRIES ACCEPTABLE 



57120000 
57121000 
57122Q0C 



TEMP »= SAVESIZE; % SAVE SPACE I ,s "STACK" FUR VARIABLES 
IF NAME»^0RDC0]«0 then * DEFAULT IS FhE ^^(JRK KIlF. 
IF FII FNAME:»Q THFN (UlFRHf'Nn FllF",i,; 



57133000 

57124000 
57125000 



IF 



TPCOUNT 
BEGIN 
WANT »» 



LIT0UT("WAIT, 
DOING »» 1; 

GO TO Exit; 



neq then x work file has been autered 
vupdate; 



57126000 
57127000 
571290 Q0 . 



•SNOCRLF); 



57129000 
57130000 
57131000 



end; 

GO TO CASEi; 
END CASE 0; 



57132000 
57133000 
57134000 



X: NO UPOATE REauiREO 



57135000 
57136000 
57137000 



n 
2 

3 

4 

5 
6 
7 



10 

11 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 

23 < 

24 

26 

26 ( 

27 

28 

29 I 

30 

31 

32 ' 

33 

34 

35 I 
36 
37 

36 4 



41 ' 
42 
43 
44 ' 
45 



54 
55 

56l 



fi 



% 



2 

3 
4 
5 
6 
V 
8 
9 
10 
11 
12 



16 
17 
18 
19 

20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

13 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

M 

45 



46 
47 
«8 
49 
50 
51 



52 
53 
54 
55 
56 
57 



BEGIN 



% CASE 1 - WORKFIlE JPOATt.L) 



MATCH(VERBWaRD*"CCMPlLE'') % COMPILE ONLY 
BEGIN 
IF NAMEWORDCOlan THFN ili CQ^^PILE THE ^iHRKFtLF 



BEGIN 
NAMEWORD[0]t=SOURCEFILE; 

NA^^EWDRDn HsljSFRCanE* 



IF TYPEWORD«0 TH£N X FILE TYpe NOT SPECIFIED 
BEGIN ' 

TYPFWnan a«» FTl^^TYPFf % USF WORK FXiL TVPF 



CHKtyPE: if NOT BOOLEANC(TJ = TYPtTABLECTYPEWOt^U]).Cl;l]) THEN 

GOERRCTYPe "»l9)i % NOT CUMPILLR lYPfC 
IF CHFrKRTTCTYPF^nRn-l^KE.STfUCTKni ANblJAF,FS) JHft^ 



G0eRRCT,C6J423»49J; 

end; 

FNn % IF WQRKFIIf nW BRANCH FHnM H^l n>». 



ELSE IF SEARCHC0UNT=O THEN X OlRECToRY SEARCH NUT EXECUTED 

BEGIN 
IF NAMEWORD[n NC(J THEN ^ CHECK OUTSiUL riLF 



BEGIN 
MATcHCNAMEWORDEl]*USEHCaO£) 

Jim __^ 



EUSE 6DtRRCNAMEW0RDCl3*8); 



ELSE NAMEWQRDCn J=USEHCUDE; 

FlNDCLL&IAMC33Ui:n»0,NAMtW0rt0C0],NAMLrt0HCCl],USERC0DE); 
SEARCHTQGfiLF:-i; % STUP PRgCEa.MNG flN tiFAHCH EHROR 



SEARCHCOUNT Js 1 
DOING »« 2i 
WATTFOB »g TAMI 



GO TO 

END % 

FI.SF 



exit; 

if directory search 



rtAS i>iUT EXECUTED 



BEGIN % DIRECTORY SEARCH FINISHED* FILE IS IN DIRECTORY 
IF TYPEWOWD s THEN TYPEWOHO «» SEARCHTYPE; % FROM HEADER 
an Tn rHKivPr; 



end; % IF SEARCH iNAS EXECUftD SUCCESSFULLY 
% CALL OUT THE COMPILER . ___„__ 

RUNl J» NAMEW8R0C0]; 

RUN2t»TYPETABLECTYPEWQR0J.C6M2 3; It COMPILER NAME 
TRANSFEREQUaTIONVALUES; * LABlL EQUATION ENTRIES 

WANT :s vcompileit; 

DOING »s 3; X RETURN AFTER COMPILING 

GO TO exit; 

end; % IF COMPILING 



% ••RUN'* OR "EXECUTE" VERB 

IF NAMEWORPIOJ^O THEN % EXECUTE THE t\URK FILE 
BEGIN 

NAMEwaRDC0Jl«SOyRCEFlLE; 
NAWEWQRnC 1 3 I gllSFRCnnF i 



IF TYPEWORD-0 THEN T YPEWORD J*F I lETYPE; % uSE wQRK FILE 
IF NOT G00D08J THEN '^ NOT THE CORRECT OBJECT FIlE 
BEGIN 



TYPE 



57138000 
57l3«000 
57Mn00Q 



57U1000 
57142000 
57U30Q0 , 



57144000 
57145000 
-571460£U)- 



57147000 
S7148000 
571 4 9000 



57I5OOOO 
57151000 
571511QQ 



57151200 
57152000 



57154000 

57155000 

57156000 

57157000 
57158000 

57159000 



571600.00 
57161000 
57162000- 



57163000 

57164000 
57i65nnn 



57166000 
57167000 
57168000 



57169000 
57170000 
57171000- 



57172000 
57173000 
57;740 0Q 



57175000 
57176000 
57177000 



57178000 
57179000 
57180000 



57181000 
57182000 
57183000 



57184000 
57185000 
57186000 



57187000 

57188000 

-57189000 



MATCH(VERBWCRO#"EXECUTE") GOERRC^NO 0BJ»"fl7); 
SEARCHCOUNTJsB; % avoid directory SEARCH AFTER COMPILE 

fin in CHKTYPE? 1 mMpj-LF th^t .squr^'^ 



57190000 
57191000 

5719?000 



57X92100 
57193000 
'17194000 



2 
3 
4 

5 

6 



10 

11 I 



h 



10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 



22 
23 
24 
25 
2« 
27 
28 
29 
30 
31 ~ 



32 

33 



34 
3S 



36 

J7" 

38 

39 



41 
42 
43 



46 
47 



49 
50 



52 
53 



55 
56 



^~1« 



E.ND; % IF NOT A GOOD UBJECI FiLt 
NAMEWORDCOUs" "SOB JtCTF 1 lE C 6 : 1 2 J 36 ] ; 

fin TO runn; a qbje.c.t fill ls ij^ 



% IN CASE SOURCE REMOVED 



END % IF THE WORKf lUE 

ELSE IF SEARCHCOUNT»0 THEN 
BFGTN ^ . 



S/lVbOOO 
57196000 
'^71^7QQQ 



X SEARCH FOR OBJECT FILE FIRST 



57198000 
571V9000 

57?noooo.- 



IF NAMEwQROtnsC THEN NAME WO«Q 1 1 ] J suS£RCOlJt> * FIU NOT SPECIFIED 57201000 

FlND(LL&lAMt33Ul»7]*0*NAMEWQRDC0J.C6J36J^NAMEl^QRL)tn*USEHC0DE)/ 5 7202000 
S E A RCHCO U NT I s ji ^_ „___„„_„ <=. jy ri^QQQ 



DOING t» 21 

waitfor t« iam; 

-GO TO EXIT? 



END % INITIATING SEARCH F QH QbJECT 
ELSE IF SEARCHcaUNTBl THEN A RESULTS OF OBJECT SEARCH 

BEGIN , . „___^ 



57204000 
57205000 
57^06000- 



IF EVENTSCIJ LCO THEN « NO OBJECT IN OlRECTORY 

BEGIN 
MATCHtMAMFMnRDtn^llSrRnQflE) Ft SE RHFRRCNn nR.J.w.l7^i 



572070CC 
57208000 
S72U9000 



57210000 

57211000 
572120QQ 



MATCHCVERBWORD* "EXECUTE"J GUERRC'NQ 08J."M7)> 

FlND(LL&lAM[33Ul8 7 3,0,NAMtAOR0COJ,NAMtWCRDCl J/USERCUOE); 
SEARCHCOUNT 1= ?; ^ 



SEARCHT06GLE «« H % STOP PROCESSING IF NO SOURCE 

DOING t« 2} 

WAITFOR \m TAMf 



57212100 
57213000 

-57 2H -QiIQ- 



-oa 



GO TO exit; 

end; % IF OBJECT VtRSION NOT Qn 
TO RUNN; % object Fllfc" (JN Dl.Sl^ 



57215000 
57216000 
57217000, 



DISK 



END X RESULTS OF OBJECT SEARCH 
ELSE IF SEARCHCQUNT»2 THEN X SOURCE 
BEGIN 



572i8000 

57219000 

-57220000 



IS IN OlHtCTQRV 



RUNNt 

RUNlt' 
RUN2r 



IF TypEWORD*0 THEN T YPEWiJRO : =SEARCHT YPE) 

GO TO CHKTYPE; % COMPILE THE SUuRCE 

end; % IF SOURCF WAS PHFSF.^T IIM QIRFCTflWY 



57221000 
57222000 
S7223nnn 



57224000 
57223000 

5722 6,QM, 



iNAMEW0RDtfl3,t6»36J; 
iNAMEWORDcn; 



TRANSFEREQUATIONVALUlS; 

want »« vdispatch; 

I AM 1° o; 



% LABEL equation VALUES 



57227000 
57228000 
5722 9QQQ 



GO TO exit; 
end case i; 



57230000 
57231000 
57232 0Q0 



t«»»»»»»>»»»»t«»» 



BEGIN % CASE 2 - RESULTS 

IF boqlean(Searchtdggle) 

IF EVENTSCn NEQ 7 THEN 



IF (TI»EVENTSC23,£36I6I) 

SEARCHTYPE»»T) 

GO TO CASE 11 



57233000 

57234000 

»♦»#«««» , 1 1 «»»»»»«>«»«»« »t»»t »«»>»»».,.», 57235000 

OF DIRECTORY SEARCH 57236000 

THEN % STOP PROCESSING ON NEGATIVE SEARCH 57237000 

GoERR(NAMEWORD[03>2); % NOT IN LIBRARY 57238Q0Q 



GTR NUMOFTYPES THEN T«*c; 



END CASE 2; 



57239000 
57240000 
57241000 



BEGIN % CASE 3 - AFTER CUMPlllNG 



MATCH(NAMEW0RD[0]*S0URCEFILE) 

BEGIN % COMPILED THE WORKFlLE 
OB JEC TF TLE I »SQURCEF T LE . C 6 » 3fe 3 I 



57242000 
,57243000 

57244000 



GooDOBj Js true; 

CANCELCKPT(At*3); 

end; 



57245000 
57246000 
57247000 



MATCH (VERB WORD* •♦COMPILE") 

IAM I* o; 

ENin CASE 31 



57248000 
57249000 
57250000 



ELSE GO TO runn; 



57251000 
57252000 
5 7g53 Q Q Q 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



ENU ALL cases; 
GQ TH FXIT; 



ERRI ERRSWS«ACSREQ]; WANT J«WAlTfOR»«0 J IAMJ«VERR0R; 



EXITJ 

END PROCEDURE EXECUTE; 
%***^^•****•••^^*1^*^^•*^>•**^^••1^••^^•*^r•**1^*^l*•*»^n^■»l^1^•»^nn^*l^ 



572ba000 
b7iib5000 
57256000 
572b7000 
57258000 

57260000 



57261000 

~- ---- --..,-..-,■■-, ,ilr*»<Hr<lr»»*<r*»***jt|^y^OOQ0g g 

PROCEDURE LOADIT(LCW*A)* BOOLEAN LCw^ ARRAY ACOJi 58001000 
%**************************** **t ************ *******##******************%5g002000 
BEGIN 5flOQ3000 



DEHnE NAMEWORD = ACBASE3 », 

TYPEWORD a ACBASE + n** 

RECORPCOUNT = H iif^ bt*^ }» f . 



58004000 
58005000 
58006000- 



13 
14 



!l5 



OBJECTNAME 
OISKTOGGLE 
SAVESIZE 



« A[BASE+3)»* 
• AC8AS£+4]## 



58007000 
58008000 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



DEFINE ERR(ERRl>ERR2)s 
BEGIN 



ERRSWJaERRi; MSGPTR»»£RR2' GU TO LRRDR; 
END*; 



38010000 
58OUO00 
56 12 000 



LABEL CASE3* ERROR* EXIT; 

REAL t; 



58013000 
58014000 
58Q15000- 



CAbE DOING OF 

BEGIN 
BEGIN * CASE Q " SYNTAX CHECK 



58016000 
58017000 
58018000 



IF FILENAME NEQ THEN 

IF TPCOUnT NEC OR FIlENAME NEW SCUKCLKI1.E THEN 
IF NOT NDSAVF TriFN 



58019000 
58020000 
5fl 021QOO 



58022000 
58023000 

58Q?4nnn 



31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 ~ 



m p M * M 

N0S»VE;«TRUE; ERRCNO SAvE"*48)i 

end; , 



58025000 
58026000 
58027000 



SREG :« BASE - 
CLEAR(ACBAi>E]* 
TEMP 1= Sa VE $ I 



AtBASE] 
SAVEiJUE 
2SJL 






58028000 
5802V000 

58QjQnon 



45 

46 
47 
«8 
«9 
SO 
51 
52 

a 

M 

ss 

56 
57 



IF A[SREG].tl8 
IF (T»=AtSREG» 
IF T G T R ft TH F 



»153 NEQ 1 THEN ERR("NAME "*6); 
sSREG+13.[3«33)=0 THEN ERR ("NAME "*6); 

N FRRf0.ag)i _____^^_^^__ 



58031000 
58032000 

■SBQa.ionn 



IF FINDAWORDCA 
NAMEWQRD t- A[ 
FIND(IUIAHC33 



tSREG],HESWRDTAbLECn*NuMaFHESwRDS)/0 THEN ERR( C *8 J ; 58034000 
SREG].[6l42j; 58U35000 

;41»r3*0*NAMEwQHPfU5fc;RC0nFyU^ERCnr)E); 5 8036 000 



DOING »• 1; 
WAITFOR «« lAM 
_EMl — C AS E 01 



; 



58037000 
58038000 
S8Q3900Q 



BEGIN % CASE 
IF EVENTSCn 



1 - RESULTS QF SEARCH FOR SOuNCE FILE 
NE Q, 7 THEN ERK t N AW E rtGRp* 2 ) ; 



IF (T!»EVENTSC 
RECOROCOUNT Is 
IF NOT C ONCISE 



FlND(LL&IAM[33 
WAITFOR Is lAM 
DOING t» 2i 



21,C36«6J) LEQ NUMQFTYPES THEN TYPEW0RD»»T; 
EVENTSt33 * it » RECORD COUNT 
THEM GFNFll iNEtNAMEWflRn.TYPLTARI F f T VPr wnRH T ^ ! 



,58040000 
58041O00 
58042000 



«41«7]»0'NAmEwOHU,[6« 36 3 # USt^^COQE* USERCODt ); 
t 



58043000 

58044000 
5flQ45nQn 



END CASE 1; 
RFGIN % CAS E 2 



58046000 
58047000 
5 80 4 8000 



» RESULTS OF SEARCH FOR OBJECT FIL^' (IR SLTUPFH , {--S 



58049000 

,5^050000 

58051000 



m t 



8 
9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 
19 
20 



21 



23 



24 
26 



26 
27 
28 
29 



30 

31" 

32 

33 

34 

35 

36 

37" 



38 
39 



40 
41 
«2 



(3 



46 

47 



«8 



49 
50 
51 
52 
53 



S4 

55 



IF NOT BOOLEANCDISKTUGGLE;) THE.N 

IF EVENTSCn*/ ThCN OBJECINamE I= NAMErtURD , L 6 : 36 ] ; 
IF FH . ESOK. TMEN C A NCE L CKPT CA t * O ELSE ~ . 



BEGIN 

IF NOT BOOUeANCOlSKTOQGl.E) 
RrSTN 



THEN % NO RETRY FOR DISK 



DISKTOGGLE «» 1; 
WANT t= VSETUPFILES; 
nriTKG i= ?; 



END 
ELSE 
BFGIN 



ERR("NO DISK", 46); 
GO TO EXIT> 

end; 



% uu us eh disk 



•ENo'J •■■■ 
IF NOT CONCISE THEN tITOUTC"LOAOING'»»NOCRLF); 
IF TYPEWORO « 8 THEN f TYPE QAlA FILE 



BEGIN 

IF NOT CONCISE 

BECiTN 



THEN 



TWX0UT(LL*Lt03*O#2); 
LCO3 t» "ND L0AO« & "E' 
TWXQUTC L LAt0r»8rr)j 



tU4 3*5]; 



end; 
writeasterisk 
go to ca s e 3; 



»s TRUE) 



end; 

WORKC33 
W0RKI03 



Is 



nameword; 
01 



WORKCn »« CLL + SYSTEM) & C0NCl3EBlTta!47;n; 

W0RKC2] Js WORKcaJ := ERRSW J= US£.RtODE; 

R U Nl »a **L0 A P — — !lj- 



RUN2 »» "CANDE "i 

WANT in vdispatch; 

nTSKWRTT F(FSPl M 



WRITEASTERISK := CONClSt; 
EOJMSG J= NOT CONCISE' 
GOQOnBJt^BCSnURCEFIi E8»FIi EnAMLjsFIi ETYpEr 



DOING Is 3; 

GO TO exit; 

FND CASE 2f 



'I ASTRECORnt^O); 



BEGIN % CASE 3 - RETURN AFTER LOAD OR bRAMH 
IF C0MMQNCELL,r?>13^C THEN % lUAH »<AS QK 



CM DATA FILE 



CASE3« 



BEGIN 

FILENAME l« SQURrEFlLE l» NAWEWDSn; 



FILETYPE J= 
GOODOBJ != 
I ASTRFCnRO t^ 



lYPEWQRU; 

( OBJECTF I lE: = OBJECT NAME) 

HFCnROrOUNT/ ^ 



NEQ 0, 



NOSAVC 

SEQLASt 

INCRFMFNT 



I s 

_iJL 



false; 

SEQIN ts 
IQQf 



t:»makefn("is"*ll); 

MAKEFILE(LLSl3t33!AlJ?'3»l'T*USERCOLE'HLt.TYPt#0); 

end; 



lAM Ik OJ 
END CASE 3; 
END ALL CASESf 



580b2000 
56Ub3000 



58055000 
58056000 

saQs/non 



5805800C 

58059000 

.5 806 QO0O 



58061000 
58062000 
5fl063000 



58064000 

58065000 

-58066000- 



58067000 
58068000 
5fl069 QQQ 



58070000 

58071000 

-5i8.Q72fl00 



58073000 
58074000 
58075000 



580/6000 
58077000 
5 607 8 000 



58079000 
58080000 
5808 1 000 



58082000 
58083000 

5 80 84 00 



58085000 
58086000 
56QB7000 



58088000 

58089000 
58090000 



58091000 
58092000 
5809^000 



,58094000 
58095000 
58095100 



58095200 

58096000 
5fi097QQQ 



58098000 
58099000 
58100000 



56101000 
56102000 
5B1Q300Q 



58104000 
58105000 
56105100 



58106000 
58107000 
56106000 



1^ 

24 

3 



6 

7 

8 ' 

9 
10 
11 ' 
12 
13 



17 1 

18 

19 

20 ' 

21 

22 

23 ( 

24 

25 

26 ' 

27 

28 

29 ' 

30 

31 

32 ' 

33 

34 

35 ' 

36 

37 

38 i 

39 

40 

4,< 

42 



11 



48 
49 
50 I 
61 
52 
53 < 
54 
55 
56 I 



h 



2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 



t 

18 
19 
20 
21 
22 



GO TO exit; 

ERHORl 

IF FRRS^^gQ THEN F KiKSt^i { =A [, SRf.d J / 



lAM »a VERROR; 
WANT »» WAITFOR l« Oi 
EXiTt 



58109000 
58110000 
5811 1000 
58112000 
56113000 

58115000 



END PRaCEDURE LOADIT; 58115000 

X******************************.i**(it**************i,**********************59000000 
PRPCFDURE SAVFRdClNt A3; RoniEAN LCfl/ ARRAY MOM ,. soonoinn 

X*******************************!(f*********************»**********#******59000200 
BEGIN 59000300 



X 

BEGIN 

LABEL FRRtCASEUFI N TS HF UtE XTT t 



REAL TiF; 

DEFINE DEFAULTSaVFFACTOK 

CA^E DOING OF 



59000300 
SS?QQ0a00 



= 7#; 



BEGIN 

BEGIN 



59000500 
59000600 
590QQ7Q0 



% CASE - SYNTAX ANALYSIS 



IF FUFKIAMFsQ TUFN % NO WnWK FI| F 



59000800 
59000900 
59001000 



24 
2S 
26 
27 
28 



29 
30 
31 
32 
33 
34 
35 



36 

37" 



38 



40 
41 
42 
43 



45 



r 
49 



B2 
S3 
54 



55 
56 



BEGIN 
ERRSWS="NQ 

■ E. N n; 



FILE"; mSgpth 



1; GO TO err; 



IF 



(Ti»ACSREG»»BAS£-A[eASEn.Cl8si5 3 ) 

BEGIN 

FRR SWI* A TS RE G -f?! ; M SdP TR :« Hi 



GTR 1 Then % toq many 



59001100 
59001200 
590013-QX^. 



GO TO fcRfiJ- 



end; 

IF T=0 THEN AtBASf] J= "1 ELSt 

IF CALRASF3t=AraRLntin.U »5] iSEtt 



PARAMS5900UOO 
59001500 
59Q01600 



Thf. N ^ NOT CJNSJfiNFn NUMBER 



59001700 
59001800 
59Q01900 



BEGIN 
ERRSWJsAtBASEl' 

end; . 



MSGPTRS*4; GO TO ERR; 



TEMP '.s 1; 

IF TPCOUNT = THEN 

WANT ;» VtjPDATEJ 



59002000 
59002100 

59002200 



G(J TU CAbLl; I WORK FILE ALREADY UPDATED 



59002300 
59002400 
59002500 



DOING «= 1; 
LITOUTCWAIT- 

FND? X CASE n ^msiZhOSL 

% « 59002900 



»♦# nocrlf); 



59002600 
59002700 



C Ai^ EU 



BEGIN % CASE 1 - WOPKFILE UPDAlED 



IF NOT CONCISE THEN GENFlLlNECFI LENAMf TYHtT ABLEC FiLETYPE J ) ; 
MATCHCFILENAME^SOURCEFILE) % FIlE ALREADY SAVED 



,59002900 
59003000 
59003100 



RFGIN , 

FIND(LL&IAM[33:41 : 73*0* FlLtNAME/USEKCOUt, USE RCQDE); 

DOING »= 3; 

WAITFDB t« TAMi 



59003200 
59003300 



END 
ELSE 
BEGIN 



59003500 
59003600 
5 900 3700 



TtsLL«>VMCPMSGt33!4l57]; 

F:sIF ACBASE] LSS THEN DtF AULT SA VEF ACT OR fLSt AcdASEj; 

R£P lACECT>SQURt EFI,LE*U S L RCU UE f 



59003800 
59003900 
590 00000 



59004100 
59004200 
5^0,04 300 



FlLENAME»USERCOD£#F&FlLETYPEt32U2l6 3*UNL0CKT0GGLEC31U7ll3);59OO4400 
IF GOQDOBJ THEN 59004500 

REPLACE( T^ SQURCEr ILE . C 6tMl ^ USERCQDE * , 59004ftQQ 



FILENAME. C6« 36 J^USeRCODE^ 

F&FILETYPEL32«42:6J&UNLUCKIUGGlE[31847i1]) 
ELSE RfMQ VEF ILLfT» FILENAME. C6 136] M jS fHcUDE); 



WANT:»WAlTFCRleVMCPMSG; 
DOING «« PARAM ts LIBMSGCTR 
LIBMTNCE y* TR UCt 



59004700 
59004710 
59004fl0Q 



»s 2; 



59004900 
59005000 
59005100- 



m t 



>r 



8 
9 

to 



12 
13 



15 
16 
17 



19 

20 



21 



25 



27 



29 
30 



35 



36 

37" 



39 



(5 



50 



J2 



55 

56 



end; 

end; % CASE 1 



BEGIN X CASE 
IF ACBASE + n 



2 * RESULTS OF FILE REPLACE 

NEQ f TH€N X NOT «E#LACE£) - PHOBABLY FILE IN USE 



byOUSHOO 

59005300 

, 5900 5aQQ 



XL 



ERRSWJs"IGNOREQ"; 

end; 

■HAKEFNC'IS'^fUH 



WSGPTR IS 22> GQ TO tHR; 



59005500 
59005600 
59 00 570 



MAKEFlLE(LL&13C33r4l»73#l#T#USERCOOE>FlL£fYPE#0); 

sourgefilei-filename; 

IF filesok then CANCELCKPTCA[*J); 
FINISHED* 

LiTnuH "Saved . " . j^-conc i s e h i t j ; 



59005800 

59005900 

-5^006000 



WRITE ASTERISK 
lAM l» 0; 
end; % CASE 2 



«« FALSE r 



59006100 

59006200 

'i9QQft3nn- 

59006400 

59006500 

S9U0fi60a- 



59006700 
59006800 
590069Q0 



X •• 5900 7000 

BEGIN X CASE 3 - RESULTS OF DlHECtOHY bEARCH 59007100 

I F E VENTStn uEQ TH£N __ ^ 59007200 



BEG I N 
ERRSW 

end ; 



»* riLENAME; MSQPTR !« 67; 60 TO ERR; 



IF EVENTSC2] ,C36;6J NEfl FILETYPl Qt? ACBAScJ GEO 
B00LEAN<UNLUCKT0GGLE) THEN A CHANGE HEaOEK 

BZGdM , , 



OR 



59007300 
59007400 
50007500 - 



LLDISKREAO «* ACbASE + U «* EVEnTSC? 3 , C I8 1 15 3 ; 

WANT I* voiskread; 

Temp m 2; ^ ■ ^ ^ . . __ 



X HEADER ADDRESS 



59007600 
59007610 
590 77 00- 



OOINQ :» 4; 

END 
FLSE GO TO 



59007800 
59007900 
59008000- 



F IN I SHI- n; 



end; X CASE 8 



5900ai00 
59008200 
'i90Uri300- 



REGIN X CASF A » MFAflPR IN rQR£ 



W0RKt4],[36:6]J=FlLETYP£; 

IF ACBASE] GEO C THEN WORK C 3 ] . [ 2 « 10 ] : = A C B A^E J / 

IF BQQl,FAN(UNI,OrKTQGS L E ) THEN 



59008400 

,59008500 

59008600 



* SAVE FACTOR 



IF WORKC53.tlUJ*0 THEN X NUT GUARDED 
WORKC53 ts W0RKt63 ;4 VH 
D ISKWRITF(ACBASF-H3i; 



59008700 
59008800 
59008 810 



IF GOGDOBJ AND CACBASe] Gtil OR dOOLE AN( U NuOCKTOGGlE ) ) THEN 
BEGIN X CHANGE DEJECT HEAOEK 
FIND(LL&lAM[33Uit7]f Of FILENAME. [6; 36]#US£rcODE*US£RCUDE); 



59008820 
59008830 
590089QQ 



DOING «» 5; 

WAiTFOR i« I am; 

END 



ELSE GO TO finished; 
end; X CASE 4 



59009000 

59009100 
59009200 

59009 300 
59009400 
59009500 



BEGIN X CASE 5 • RESUuTS qF OdJECT DIRECTORY SEARCH 
IF EVENTSU3 LEQ THEN GO T9 FINISHED; 
LLOISKREAD i> AC9*SE*13 *» EVENTSC23 . CiaU53 ; 



59009600 

59009700 

,59009600 



WANT i* vdiskread; 

DOING ta 6; 

end; X CASE 5; 



59009900 

59010000 
59010100 



59010200 
59010300 
59010400 



BEGIN X CASE 6 • OBJECT HEADER 
WORKC33.C2tl03i«AC6AS£3; 



IN CORE 



,59010500 
59010600 
59010700 



• • 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



|16 

17 

18 

19' 

20 

21 

22 

23 

24 

25 

26 

" 
28 
29 
30 

31 



32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
SO 
51 
52 



53 

54 



55 
56 



IF booleanCunldcktoggle) then 

IF W0RKC5],C1J1] = THEN % i\UT 



GUAHOED 



DISKWRITECACBASE+I]); 

GO TO finished; 

FNDI % CASF 6 



END ALL cases; 

GO TO exit; 
erri 



5<^0i0710 

59010720 

i)VUl073CL 

59010800 

59010900 

590 11 000 



wantj»waitfori»o; iamisverror; 

EXITI 

END PRnrEDURE SttVFRl 



59011100 
59011200 

59011400 
59011500 
590U600 



ENP PRnCEDURE SA VFR ; : : «;9On600 

%***^l**^^*******^l*****^i^|^|■k^,**^l^,^c^,^<^,*^•*^l^t^,^l^l^,^,^,^,■l,^,*^,^,^,^,i,^,^,^,^,^,1,^,^,^,^,1,^,^,^,^,^,^,%(^^QQQQQQ 

PRUCEOURE REM0VECLCW*A); HUULEAN lCh; ARRAY ACO]; 6IOOOIQO 

BEGIN 61000300 



BOOLEAN 
REAL 



s# 0; 

wr*pr»T.y; 



LABEL WRKFILE*ERR^EXIT; 

IF BOQLEAN(DOING) THEiN %CHECK RESULTS. 
BFGIN WC} = ArSREG]; 



61OOO3OO 
61000000 
AjOOOSOO 



BEGIN 



FOR U»0 STEP 1 UNTIL "^iC DO 
TF Xl»ACRASEfn NEQ 6 THEN 



BEGIN 



IF X,C6J63 NEQ THEN 
J 
LiTOUTfFRR: "*ImOC>*LF); 



LIT0UTCX»CRLF); M3gPTRs»2; 

END if; end for; 

iAMt»Qj GO Exit; 



61000600 

61000610 

61000618 - 

61000626 

61000634 

610006^2 

61000650 

61000658 

61000666 



END CHECKING RESULTS/ 

S J« U := B(v^C!3l); 
IF PC := A[SREG;=BASE-A[9aSE]].FF 



61000674 
61000682 
6l00Qfi9Q 



BEGIN 
WRKFILEJ 



TH|; , | N 



61000698 

61000700 
6l0Q0flQ0 



FlLEf^AME :» lAM ta Qi 
TPCOUNTUSOURCEFlLEtaO; 



end; 



GO exit; 

IF PC GTR 10 THEiM ACSHLG-Hl 1= "TQUMANY**; 



61000900 
61001000 
61001100 



BEGIN 



WHILE I LSS PC 00 
I 
1 »» l*li X»«;ACS«£&tl3.t6*42i; 



BEGIN 



IF X.[42t6] iMEQ " " THEN % ILLEGAL PARAMETER, 

ERRSw }' )^ ; 



61001200 
61001300 
^100140 
61U01500 
6IOOI6OO 
61001 700 



ERRI 



msqpbinter «« 42; » 6 chrs 
error<sreg+i*lcw#ac*3); 
GO exit; 



MAX 



61001800 
61001900 

fiioosoon 



END IF ILLEGAL PARAMETER; 



61002100 
61002200 
61002300 



MaTCHCX, "SOURCE ")BEQIiN S:=TRuE; 0»=FaLSe; END ELS 
MATCHCX, "OBJECT ")BEGXN 0;=TRuE; S»sFalSE; END ELS 
BEGIN X IF WE GOT HERE WO«D IS NUT SOURCE QR OBJECT, 



ELSE 

E 



61002400 
61002500 
61002600 



X IF WE GOT HERE WO«D IS NOT SOURCE OR OBJECT, 61002700 

MATCHCX., SOURCEFILE) GOERRC "WRKF ILE'S 14); 61002800 

IF Y0UFINDAvEftB(X&7C3i45>33/VERBTABLE[0]>NUMOFv£RBS) THEN 6l0Q2ftl0 

GOERRCX'S); 61002820 

IF S THEN BEGIN ACljASEtWC 3 I =X; INCCWO; END; 61002900 

IF THFN BFGIN A C B ASL-»WC J » sX . C 6 ; 30 3 ; INCCWO; LNo; 61003Q0Q 

IF A LEGAL PARAMETER; 61003100 

OF ALL PARAMETERS; 61003200 

IF WC LEQ.1 THEN %Ur\ FIlF NAMt S SPECIFI FD 6l003 ?in 



• • 



BEGIN 



k 



3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

» 

31 ~ 

32 

33 



34 
35 
36 

37" 



I 38 

39 

40 
I 41 

42 

43 ~ 

(4 

46 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 



56 
B7 



IF THEN G00DOf3J:sa(UlJJECTFlLf;» = O) 
FUSE ftr'i T13 WriKFn.fc.f 



end; 



iAMt»Q; GO exit; 

DDlN6<8i; WAMTlawATTFURtaVMrPMSK; 



61003220 
61003230 
61,003240 



LIBHTNCES'TI^Ue; AClNCCi-HESn :-WC!=>'ARAM:*LIBNiSGCTfMsyvc-i; 
FOR IJ=1 STEP 1 UNTIL wc DQ 
BFMrvFFll,l-CI..L^W,AlTfQR[33;<l3 ; 71 1 A [Fi AaF-H ] » - - — 



EXIT* 



USLRCODE); 



END 



PROCEDURE CHANGECLCW^A); 
UFGIN 



OF RFMnvr PRncrnuREi diuum^u.i 

********************** *«*****^** **************** «**^*^^*;j ^2 000000 



61003250 
61003260 
6100 39.QQ 
61004000 
61004100 
6 1004 20 
61004300 

61004400 
61004500 



BOOLEAN LCkv; ARrtAY AtO]; 



%***♦***** START 
LABEL exit; 

- REAL t ;. 



OP CHANGE CODE 



TEMP 

CASE 

BFfiTN 



«= 4; 

DOING 



OF 



BEGIN X CASE 
CASE CHANGEWHlCH(AE*3) OF 
BFGTN . 



BEGIN 

lAM ja verror; 

60 E XI T 



end; 

begin % whigh»l— workfilc type 

IF riLENAMF a Q THFN fifiFRRfMO FlLI.".lVi 



IF FlLETYPE = 8 AND AtBASE+l] NEQ 6 THEN GOERHCOATA ''rblU 
FILETYPE :» ACBASE+IJ; 

TFMP ta MAKFFN("t S"pLI , ); 

FINDCI.L&IAMCS3«41»71»0»TEMP#USeRCOOE*USERCOC£3; 
TEMP l« 3; 
DOING la 5; 



WAITFOR 

end; 



:= iam; 



BEGIN % WHlcH«2- -Flt,ENAHE TYPL 

FlND(LL&lAM[33t41«73*0*AtBASE3#USeRCOOE#USERCODE); 
nnTM#it!=4» 



DOING »« 1; 
WAITFOR »a iam; 



t-No; 

BEGIN % WHlCHa3--NAME TO NAME 

FIND(LL&IAM[33»41873»0>A[BaSe*13*USEHCODE*US£KCQQ£); 
nnTNin Is: ^i UATTrrtO «« taui 



DOING 

End; 
Begin 



GOERRC'LOCK 

COMMENT 
PUT 



I* 3; WAITFOR j» iam; 

31 WHTCH B4*- LnC K 



" * 1 5 ) ; 



LOCK 
STUFF 

hfrf; 



£nd; 

BEGIN * WHlCHa5. -PASSWORD 
IF LLaQ THFN GHFRR f "P A .S^^URn" , a ) J 



IAM »• VCHNGPSWO; 
DOING t» 0; 
Gn FXIT 



62000100 

■620002Ga 

62000300 

62000400 
6yQ tj Qzi|0 

62000500 
62000600 
- 62Q-Q0 7G.a- 
62000800 
62000900 

62001100 

62001200 
6 200 -1-3^^ 



62001400 
62001500 
6?00 16Q0 

620Q1650 
62001700 

-fezOLQiaoo- 



62001900 
62002000 
62002100 



62002200 
62002300 
62002400 



62002500 
62002600 
62002700 



62002800 
62002900 
62Q03000 



62003100 
62003200 
62003100 



62003400 
62003500 
62003600 



62003700 
62003800 
APQQ30QQ 



62004000 
62004100 
62004110 



62004200 
62004300 
6 20Q440 Q 



n 
2 

3 

4 
5 

6 
7 



# # 



>T 



■/ 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



E.No; 

BEGIN % 
IF ll,sO 



WHICH=»6 -- CHANGt MAML, 



THEN GOERRCNAMF 



49) 



62004500 
62004520 
62004510 



iamjsvchngname; go exit* 

END CASE 6; 

BEG IN in WHTrH 9 7» rHA^RF SAV£ "FArTOR" 



IF A[BA3E+1]*2 THEN A t D ASt ] » =0&A C b A SE H 1 2 » 6 ! 36 ] ; 
FIND(LL&IAMt33UlJ7]'0,A[BAi>Ei/UbEKCUDE*USLRC0Dt); 
nOING »;' 7i 



62004540 
62004560 
62QQ4562 



waitfor j» 
End; 

ENH WHICH 



Iam; 



CASFSl 



62004564 
62004566 

62004568- 



end case c; 

begin % case i- get headerc change type) 

Tt=<IF SCHEDULINE aNU BOOLEAN C SCHLDNaME . L 1 



62004570 
62004572 
ft20Q46nn 



U) Th£N Q ELSE 7 ) } 



62004700 
62004800 



IF EVENTSCn LSS T THEN G0ERRtAieASEi*2); 
LLDISKREAD i* ACBASE + 23 1« EVENTSt 2] ,FF; 
W ANT »»= VD IS KRE AP; 



62004910 
62005000 



19 
20 



22 
23 
24 
25 



27 
28 
29 

30 

31 



33 

34 
35 



DOING «= 2; TEMP t 
END CASE i; 

BEGIN % CAS E 2 



W0RKt4].C36«63 l« AtBASE+l]/ 

DISKWRITECAtiASE*2]); 

IF SCHEDUL I NE THE N _^ 



62005200 
62005300 
620-054-O.a. 



IF BQQLEANCSCHEDNAME.CI :U) THEN % TERMINATING SCHEDULE 

BEGIN 
l AM t= WANT {= W AI T F OR «= b > 



62005500 

62005600 

-620056in_ 



SCHEDGOTOt-u; 

60 TO exit; 

ENDl 



62005620 
62005630 
6?005ft40 



62O05650 
62005660 
62005670 



MATCH(ACBASE3#FIlENAME) if FILETYPE NEQ 6 THEN 
BEGIN FILETYPE :» ACBASE+l]) 
MATrH(FlLFNAMEfSnURCKF,Il..i.) ^ 



62005700 
62005800 

62005900 



ELSE 
BEGIN FlND(LL&lAMt33l4lS73*0#SOURCEFlLE#LSERCOOE#USERCOOE)i 

nniNG la 5; wattfqr ta tam; 



62006000 
62006100 
62006200 



GO EXIT 

End; 

End; iml 



= Q? 



620C6300 

62006400 

.6200^500- 



37 
38 

39 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
M 
M 
55 
S6 




end CASE 2; 

Begin % case 3 - changing names 

TF EVFNTSrn GEO fl THEN finfHRCACRASEtntH) 



62006600 
62006700 
62Q06aOO 



ACBASE+4] j» (ACBASE+23 := A lBASE +1] ) . t6 : 36 3 > 
ACBASE + 33 :« (ACBASE + l] != ALUaSU ) . t 6 ; 36 ) ; 
CHANGEFlLE(L,L&VMC,P,MSG[3,3;4i;73»A[tiA.Sr-'-n>li.S|fhCliri 



£^ 



62006900 
62007000 
62007100 



ACBASE*2 3*ySE»CODt); 
CHANQEFlLE(LL&VMCPMSGE33»41t73*AtaASE*3i#U5ERCDDE» 
ACRASE-fOltUSEHCODEn 



TEMP «» 3/ 

WANT t' WAITFOR { 
IIBMTNCF i^ TRUE? 



62007200 
62007300 
62007400 



vmcpmsg; 



PARAM la 

DOING tm 
Urn CASE 



LIBMSGCTR 
4; 

__3i 



IS 2* 



62007500 
62007600 
62007700 




BEGIN % CASE 4 
IF ACBASE+33 NEQ 7 THEN GOERR C "CANNOT 
MATCH{FILE NA ME> A [RASL^-1 J ) . 



62007600 
62007900 
62006000 



•*2); 



/BEGIN 

/ FILENAME I* AtBASE+23; 
J MATCHf Af RASE.H T . <;niinr Ff T [ K ^ 



62008100 
62006200 
62006300 



62008400 
620O850O 
62006600 



m • 



h 



10 

11 

12 

13" 

14 

IS 



16 
I 17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 ~ 
32 
33 
34 
3S 
36 

37 ~ 
38 
39 



40 
41 
42 
43' 



45 
46 
47 

«e 

49 

50 
51 
52 
S3 

54 

56 
56 




BEGIN SOURCEFlLE »= A[BA3E+2J> 
TEMP J= MAKEFN("1S"*LL); 



MAK E F Il EfLl &l3r.13;4l8 7]^1*TLKF>USE^f■nn^>^Il t-iYf^F' 
IF GOODOBJ TfelEN OBJECTFIU »« AtBASE + 43; 



iUX 



lAM :s 0; 

END CASE a; 

BEGIN % CASE 



5 - CHANGII^G bOURCLFILE TYPE 



If EVENTStn NEQ 7 THEN aQERRl"AHRGH "#24); 
LLDISKREAD J» AC8ASE + 23 «* EVENTSC2 3 .FF; 
WANT »» VDTSKRPAOi 



TEMP 1= 3; 



DOINCi »= 6; 
END CASE 5; 
BEGIN % CASE 6 ■ FINISH SOURCEFILE TYP(- 

WORKC43, [36163 la AtBASE+13; 

0ISKWRITE(AX1ASE+23)J 

lAM i» 0} _^_____„^_______^__ 



End CASE 6; 

BEGIN % CASE 7 - 
IF EV£NTSt1 3 N FQ 



LLDISKREAD Is ACBASE+33 l» 

WANT »« VDISKREADI 
onTNfi ts r: 



CHANGING SAVE FACTOR 

7 THFN CjOFRR(A[BASF1>?); 



£v£nts[23.ff; s. save address 



end; * CASE 7 
BEGIN * CASE 8 

wnRKr33.r?Mn3 



- HEAUER NOW IN CUHl 
I' flrtfA.SFt23; » i^f.PLACE 



SaVF FACTOR 



DISKWRITECAEBASE+33)> % REPLACE HEADER 
IF AC8ASE+13 NEQ THEN 
BFGIN I AM Is gi; fiO TO EXlTj 

end; 

T «= & AtBASE3C1256:363; % GBEsjCT FILE NAME 
FTND(LL&IAMC33UH73#O.T>USLRCOPEHJSLRCJnEW 
WAITFOR la IaM; 
DOING »• 9; 
£Nni X CASE a 



BEGIN % CASE 9 

IF EVENTStl] NEQ 7 THEN % HQ OBJECT VERblOK 
BEfilN I AM 8= 0; fin TH FxTT? 



END? 
LLDISKREAD JSAC8ASE+33 : » tVENTSL ^ 3 ,FF| % SAVE ADDRESS 

WANT » g vdtskrfad; 



DOING 

End; % 

BEGIN 



»= 10; 

CASE 9; 
% CASE 10 



* jHEAOER Nt]»^ In LUKF 



WOflKC33.E2il93 «• AtBAS£*23; * SEPLACE SAVE FACTOR 

0ISkwritc(acbase*3]); % replace header 

JAM »g o; ^__^ 



end; % CASE ic 

End all cases; 

ex it > 



END change verb; 

%** ***'#* # * ♦ * * * 'i * * * * * 4, ii it i> ****** It ■t^ *********** 1, * * t ******** * 

PROCEDURE RENAMEIT (LCWV A?; BQQlEAN LCW; ARRfet Atoj; 



62008700 
62008800 
62^06900 



62009000 

62009100 

-. 629092 00.. 



62009300 
62^09400 
62009500 



62009600 
62009700 
A2fl.fi.9Afl„Q 



62009900 
62010000 
6?0 ig iQ.Q 



62010200 
62010300 



620l0b00 

62010600 

-MZSXQIQSl 



62010800 
62010900 
62011000- 



620U100 

62011200 

_62iUiaQ£L 



62011400 
62011500 
6'iiOi 1600 



62011700 
62011800 
62011900 



62012000 
62012100 
62 122Q.Q- 



62012300 
62012400 

62012'^nn 



62012600 
62012700 
6P0l2fl0Q 



62012900 
62013000 
6?0l3lQ0 



6^013200 
62013300 
620134QQ 
62013500 
62013600 
6201 370 0- 



*************% 



rnuwLUUilC WtlNAMtiT JLCH* AJ? PQULi-ANLCWi ARRAY A[031 

%******************************************-kk*****ii****i,***********i,*X 

BEGIN 



LABEL 



exit; 



BEGIN 
BEGIN 



CASE DOING OF 

% case 



62013800 
63000000 
63000100 
63000200 
63000300 
63000400 



63000500 
63000600 
63000700 



,1 

3 
4 

5( 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 ' 

30 



31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41' 

42 

43 

44 I 

45 

46 

47 

48 

49 

60 ' 

51 

52 

53 I 

54 

55 

56< 

57 



• 
• 
• 



e 



>T 



IF FILENAME s THEN G(JF.RH ("NCKlLF. " 

SREG js HASt - acbascj; 

IF ACSRFa3 .rr~Q fhtN ^u r . RRC"n L^„ fNAM'Sf) ?> 



n 



63000800 

63000900 

Jil9Q JQQQ 



IF ACINC(SREG)3.C3I33 « THEN GOEKRC ACSRE63» 6 ); 

IF AtSR£G],t 3133*7 THEN GGERKC AC SREG3 # 42 ); 

IF FINDAWQRnCAlSREGJ* Hf:SWRDT ABLEC 1 3 # 



6300U0Q 
63001150 
63 00 120 



NUyOf^HESWRnb) NEd THEN GOt:HH C A [ SREG 3 *29 ) / 
FIND CLL&IAM[33:4iJ7J.0,ACSREoJ.C0«42J» 
USFRCQUE^ USERCQUE).; , 



END 



DOING I* i; 

WAITPOR »" jam; 

CASE CI 



63001300 
63OOH00 
630Q1500 



63001600 
63001700 

fiiooienn 



10 

11 

12 



BEGIN % CASE 1 

IF EVENTSLn GEO THtN GUEt"<R ( A [ iSHEU J , 3 ) / 
MATCHCFI LtNAM[;*SQUI^C£MLE?„ 



63001900 
63002000 
6 30Q 21Q0 



13 
14 

(15 

he" 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

«0 

41 

42 



BEGIN 



END? 



WANT I* VCOf>Y; 



FILENAME := ACSR tG3 , L6 : 423 &" "CA2U2:63; 

lAM j3 c; 

CAsr u 



63002200 
63002300 



-fr^ 



>M^^ 



END 



EXITJ 



END ALL CASES; 
I 
E ND OF REN A M E ITi 



63002b00 
63002600 
- 6 3 00 2 700 
63002800 
63002900 
63003000- 



-_, , .. -. ■■ ■ : ojuu joog 

PROCEDURE WHATSlT(LCW,A); dOQLEAN LC*^; ARRAY AlOJ/ 64000100 



BEGIN 

LABEL casei^exit; 

R EAL TM i T PfPATE? 



64000300 
64000400 
64000500 



STREAM 
% 



PROCEDURE MSGCL'FlLNAM,wRKTOG'TYPE^NREKS#UArE'TM,SAVEF); 



64000600 
64000700 
6 4 00 800 



VALUE FILNAM/WRKTOfi*TYPE#NREKS*D«TE#TM,SAveF; 

BEGIN LOCAL 8V; LABEL EXIT; 
OltnL f 0S «» 8LIT** "? ^ l t »l} D SI«9W DS; 



64000900 
64001000 
64001100 



Di:aL; DSJsSLlT^FlLE "> SI«=lOC FIlNAM; SH 
7CIF SC=" " THEN JUMP OUT ELSE DitsCHR); 
^^ RK T QG (DSi = l lLTT" (^URKFI L F)"? ; 



' S U 3 



64001200 
64001300 
6400 1 40 



DS««7LIT'V TYPE 

7CIF SO*" « THEN 
DSIagLIT*^* »l Sm«nTJ 



••; siJsLQC type; iii.si + i; 

JUMP out else os«»chR); 



64001500 
64001600 
6 40 01 7 00 



SIIslOC NReKS; DS8 = 80EC' DI»=i)Vi DSJs7FILL> biissv; 

eUF SC*" " THEN SlJsSl + l ELSE Ub:=CHR); 

DStgflLIT'V RECORDS'*; „, . , 



DI»=SV/ 



64001800 
64001900 
64002000 



WRKTOG(JUMP 
OSJslOLIT"* 
ST^LQC TMi 



OUT TO EXIT); 

CHEATED •'; SIlwLQC DATE; DSj*8CHR; 

iSi«2LTTw f«i svi»QlJ QSmaorri 



64002100 
64002200 
64002 -JOO 



48 
47 
48 
49 
50 
51 
52 
53 
54 
55 



Dijssv; DSja3FiLL; si:=sv; onssv; 

4(IF SC*" " THEN Sll»3l+1 ELSE 0S:sCHR); DSS-iLIT") "; 
DS»«3LIT"SF»"; SVt=Dl; 



64002400 
64002500 
64002 600 



SliaLOC SAVEF; 0Sla4DEC; OltsiSV; 0S:*3FILL; SlI-SV; Dl»»SVi 
4{IF SO*" •♦ THEN SI »*SI*1 ELSE OSMCHRJI 
EXiT» DStBBLIT** ^1 _^___^ ^ 



END STREAM PROCEDURE MSG; 
% . , , »....,. 

CASE nniNG OF 



64002700 
64002800 
640Q290Q 



64003000 
64003100 
640044QQ 



BEGIN 

BEGIN 
SREG If 



% CASE 
BASE ' 



ACBASEJ; 



64004500 
64004600 
64004700 



56 < 






h 



# 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 



24 
ZS 



26 
27 



26 
29 

M 

31 ~ 

32 

S3 

34 

36 

36 

37 ~ 

38 



41 
42 



46 
47 
48 
49 
SO 
51 



52 
53 



S4 

95 



TEMP :s 2; 

IF ACBASE] 

BEGIN 



»= AtSREGJ. FF 



THEN X NQ PAKAMb, WANTS WRKFR 



IF FILENAME * THEN QOERSC'NO FIL,£«, Ui * NO wORKFIUE 



IF TPCOUNT 
BEfiTN 



GTR THEN » UPDATE REQUIRED 



WANT «= vupoate; 

LITOUTC'ISAIT, "*1); 
DOING »s U —^ 



GO TO exit; 

END X IF WOKKFltE NEEDS UPDATE 
n SF AfRAfiF4,p t. RniiBcF f-ii r t 



END % IF WQRKFILfc REQUESTED 
ELSE IF A[BASE] GTR 1 THEN % CHECK FUR "DBJECT" 
MATCHf Ar.SRFr,taSPFG.i-i1.r^t/|9i."nH ipri 'M 



AE8ASE+l3l«0 & ACSREQ + 1U12J6J363 ELSE GO£RR( ACSReG3>a ) 
ELSE AC8ASE413 I* AtSREG+U.E6«423; 

fin rn taset; ." ■■ ^ . ■ ■ ' ■ - •• 



ENDj % CASE 



BEGIN % CASE 1 



CA5E1I 



At0ASE+i3 t. sourcefile; 

FlND(L L STAMr32tfli 17 1* 0, A TRASE + ii .(isr RnnnF ,usFRcnnF H 



WAITFOR J= IAM; 
DOING i;? 2; 
en d ; X CAS E 1 



BEGIN % CASE 2 
TF TtfFMT SriV I FP 



Q THFN GnERR(ArRASr^■n.2yi 



LLDISKReAD t' EVENTSt2].FF; % HtADER ADDRESS 
WANT Js VDISKREAD; 

■hqing «=» ,i; 



end; X CASE 2 



BEGIN X CASE 3. HEADER NOW IN CORE 



DATE I* DATECaNV(W0RKC3].[30! laii; 
IF TP»sWaRK[/»3 ,[36;6] GTH NUMOFTYPES 
TM>«W0RKE13. [251233; % CHCATl'JN JlHf 



THtN TpJsO; 



TM««TM DIV 
IF AC8ASE3 



216000X100+TM OIV 3600 MOD 60 DIV i; 
« 9 THEN X WANTS WUHKFILE SPECS 
MSG(L#flLENAM£i>TRUE>T»PETABL£XFlL£TYPF3.WORKC73fl> 



DATE^TM,W0RK[33.C2»103) 

ELSE X WANTS NAMED FILE SPECS 

MSG(L#A[BAS^.H],FALSE^TYPErABLL[TP3^H0RKL/J-»-l, 



DATE* TM#W0RKtl3.t2l 103 ); 
TWXOUT(LL#Lca3*90»lj; 

I AM |g Oj 



END CASE 3; 
END ALL cases; 
EXIT? 



6400<»BOO 

6-tjoa4yoo 

6aQti')0G,0 



64005100 
6«005200 

ft^on'iano -. 

64005400 
64005500 



64005700 
64005800 
ft4Q05900- 



64006000 
64006100 
640U62Q0 



64006300 
64006400 
64006500 



64006600 
,64006700 
64006800- 



64006900 
64007000 
64007100 



64007200 
64007300 
6 4 0074 00 



64007500 
64007600 
64007700. 



64007800 
64007900 
64OQ6QQO 



64008100 

,64006200 

64008300 



64008400 
64008500 
6ZiU0a<S0Q 



64008700 
64008800 
64008900 



64OO9O00 
64009100 
64009200 



64009300 
64009400 
64009500 



64009600 
64009700 
64009800 



END PROCEDURE WHATSIT; 64009900 

X********************************** ****** **********#»*****(^*#****4J>^<,^*^g5QQQQQQ 

PRO CEOURE TYPEIT(LCW*A); BOOLEAN LCwi ARRAY ALOi; 65001QQQ 



X**********************************»**************»********************j,5tjOU2000 
^EGIN 65003000 
^EA L r; ^ 6500400 



LABEL exit; 

IF FILENAM€#Q THEN GQERRCtNQ FILE'M); 



65005000 
65006000 
650Q7000 



1^ 

2( 
3 
4 
5^ 

6 
7 

b{ 

9 

10 

11 < 

12 

13 

14 4 

15 

16 

17 < 

18 

19 

20 % 

21 

22 

23 t 

24 

25 

26 I 

27 

29 

29 f 

30 

31 

32 I 

33 

34 

35 4 
36 

37 

36 % 
39 

40 

41 I 
42 

44 % 

45 

46 



47 

48 

49 

50 

51 

52 

53 

54 

55 

56' 

57 



ii 



h- 



T :* ACSRE.G»=BASE-ACBASE.]].Ll8:l:3]; * PARAMEFtl^ CUUNT 

IF T GTR 1 THEN GCERRCACSREG+2]»8); 

IF ArSREGtgSREGfn,,[3>3J#0 THFN (iUKHH C A f .iHi: 'i J / B ) .i 



65008000 
65009000 
ftSQlQQOQ 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

ps 

16 
17 
18 



IF T:«FlNDAW0RD(ACSREG]#TYPeTA8LtCl3.NUMOFTYPES) 

BEGIN X ENTRY IS IN THE TY^E TA8l,E 
TiaARSf TM 



NEQ THEN 



65011000 
65012000 
6501.1000 



IF FILETYPE = 8 AND T NEQ 8 IHEiN GOER^ C AC S-^E-G ] , 61) J 

IF checkbitct-i»resiricteolaN(,uageS) then 

fiOERR(TYPETABUl;CTJ.C6U^J> H'm 



65OUO00 
65014100 
650H200 



FILETYPE 19 

lAM »« o; 

-Em 



t; 



65015000 
65016000 
6 501700 43- 



ELSE G0ERR(A[SREG]*8J; 
EXITJ 

enp procedurf typftt; 



unu , r nuwfcuunCi — i,,i r r. ,i if, ^ ■ _ , 

%***•*****•****************************** *************** 

PROCEDURE GUARDIT{LCW»A); SOOtEAN iCw; ARRAY AtO]; 
X************************** »*****•♦********♦** ********** 
H r p T M 



65018000 
65019000 
650^0000. 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



BEGIN 
LABEL T; 
_ I F TPCOUNT 



NEQ e TH EN 



BEGIN 

LITOUTC^'WAIT. "^NOCRLF); 
WANT »= VUPDATEf 



END ELSE 
BEGIN 
RUNl »= "GUARD 



RUN2 Us "DISK «; 

I AM ta vdispatch; 

LITOUTC^WAIT ".NQCRLF) 



67000000 
67000100 

67Q00200 
67000300 
67000350 

6 7QUQA.CUi.. 

67000500 
67000600 
670 Q07QQ 
6/000800 
67000900 

-AZQO lOQIL. 
67001100 

67001200 
67QQ 1210 



e-nd; 

End GUAROiTi 



67001300 
67OOU0O 



it*** ******************************************* *******f************,^***^ftgUOQQ 00 



31 

32 

33 

34 

35 

36 

37" 

38 

39 

«0 

41 

42 

43 

44 

45 

46 

47 

48 



PROCEDURE LOCKlTCLCWrAj; BOOLEAN LCfii ARRAY AC03i 

X****i 

BEGIN 



.DUNt LUCKlTtLC«»AJ# BOOLEAN LCi^* AHKAY ACOJ* 

r*************** ************** *************************** 

I 



68000100 
***********68000200 
6»QQQ.100 



REAL 

BOOLE 

LABEL 



I,PC*IMAX 

AN LOK#UN 

RESTRT#5 



CASE 
BE 



#WORDJ 
LK*PU6 
E lECT> 



*^vORKFlLE.NAMl,,sAM2/SKC,aiJJ,WTH; 
SECUR.CHEC^>ERRi^£RR2/£XlTJ 



68000a00 
68000500 
68000600 



DOING OF 
GIN 
BE QIN % 



CASE Q " SYNTAX ANALYSIS 



68000700 
68000600 
6 8Q0Q 9QQ 



PC »s A[SREGt=BASE-ALi3ASE] ] ,[ 18; IbJ; i PAKAM£TER COUNT 
I «= VERBTABLECaCSReG].L5:93 J.l.0!^2]J * VLHB NAME 
■MAICHU> " UNL O CK ") UNLK J^ TRgE t :LSt. 



MATCHCI* 

MATCH(FI 

B EGI N 



«PUeuC ") PUB t* TfilUE ELSE LOK 
LENAME/0) ELSE % GOOD WaRKFlLE 



V* true; 



68001000 
68001100 

6800U20 
68001200 
68001300 



49 
SO 
51 
52 
53 
54 



ACBAS 

WORKF 

end; 



E*n « 

ILE »« 



f filename; 
true; 



* dlFault file name 



6eoouoo 

68001500 
66001600 



IF PCaO then X 

BEGIN 
IF NOT WOftK 



NO PARAMETERS 
FTLE THf-N QQERBC'NQFlLg: ^»l)) % NO WORK F 



ILL. 



68001700 

66001800 

-6 8Q0 1 9 QQ 



NAMl i 
GO TO 

end; 



*TRUE; A[BA3t;]«=0; * assume WdHA FILE NAML 

select; % NO further syntax analysis 



68002000 
68002100 
66002200 



55 

56 

57 



RFSTRTI 



ACBASE3 JsCll«SRE&+l)<iClMAXt»6REG+PC)[18:33» 15 ]& 
RCPU8)tl5U7»lHR(L0K)tl6M7UHRCUNLK)[l7»47ll3; 



6ga02|00 
68002310 
66002320 



m • 



9 
10 

I '1 

12 

)3 
I M 

15 

16 
I 17 

18 

19 
I 20 

21 

22 

23 

24 

2S 

26 '■■: 

27 

28 

29 

M 

31 ~ 



\ 32 ' 
33 
34 
35 
36 

37" 
38 
39 
40 
41 
42 



45 
46 
47 
•8 
49 
50 
51 



52 



55 
56 



FOR IJsl STEP 1 UNTIL IMAX DO 
BEGIN 

IF Arn«r^n3=o 



WORD l« Atn.C6U2]; 

MATCH(WORD#'*SQURCE ") 

BEGIN 



TriFN ( i n E l ^w X i % UQ u :TT fc. H . STR I N( .i 



66002400 
68002500 
6R00??6n0- 



IF SRC 
SRC « = 

XMJ3 



OR OBJ 

true; 



QR WTH THt.N GO EHRi; % INVALID PARAMETER 



68002700 
68002800 
66002900 



ELSE MATCH(WORD#"OBJECT 

BEGIN 
IT SRr na nB 1 no wfn 



68003000 
68003100 

...fieuo32ax)..- 



OBJ i' true; 
END 
ELSF MAlrHf^^nRiJf'^rtlTh 



THEN GO FRRi; % T^^^A^Tn PAWAMryp p 



JL 



BEQIN 

IF llNiK OR Pub 

ir MnTfMAMi riR 



68003300 
68003400 

6ft0Q3S-0i}-. 

68003600 
68003700 

6800380X1- 



NAMl 
END 
ELSE If, 



OR wth then go 

WORKFIIFI TNFK 



ERRi; % INVAHO PARAMETER 
GnFRRt"NnrTl F n.iM 



!= WTH != true; % LOCK THt V^OHK FIlE IF NAME NUT GIVEN 
WTH THEN iti LGOKlNiG FnR GiiARQ FILF uAMF 



BEGIN 

IF NAMS THEN 

ArBASr->.?1 is 



68003900 
68004000 
6flOQ4iaa, 
680Q4200 
68004300 
-fitfiOilMHIL. 



NAM2 
END 
FLSF IF 



= TRUE/ 



GO ERR 1 la; Name already given 

WORD? % SAVE fiUARn FTLE NA^^F 



66004500 
68004600 
6fl00a7nn 



NOT NAM1 THEN 1 NAmE flF f ^j in up | nrKFD 



BEGIN 

A[BASE + n 5s WORD; 

NAMl l« TRUE; 



66004800 
68004900 
fteOXl^QOfl- 



END 
ELSE 

BEG IN 



ACBASE] »aO; 
SELECTJ 
IF NOT NAMl 



ACBASE). C33U53»si; 

end; 
END I loop; 



go to SELECTS 



68005100 
68005200 

66005400 
68005500 



% END OF PARAMETEK LIST 



68005520 
68005530 
66005600 



IF 
IF 



UNLK THEN 
LOK THEN 
RFfllM 



OR fWTH AND NOT NmM?) THb:i-j GUEKR f " tNCWPLT"> ft W 
ACBASe + 3])»ACBaSE + 4]I»3"14»' ELSE 
ACBASE+3]«aAt8AS£+43 J* ELSE 



68005610 
68005700 
66005800 



-IF. 



ACBASE + 3];a3"14"; A[hASE-t-4j:=o; 

end; 

wth then % check for guarq f il, |? 



68005900 
68005910 
AwQOSQgn 



BEGIN 

At0ASE+53 l» R£AL(SRC) S R£Al( 08 j J t A6 J U; X SAVE TOGGLES 

FIND{LL&IAMt33:71#Q ^AtBASE423>USERCanF>USERC0nF); 

TEMP Is 6; 

DOING I- i; 

WAITFQR :a } i^M} 



68005930 
68005940 
66006000 



68G06100 
68006200 
68006300 



SFClJBi 



GO TO exit; 

end; % IF "WTH" 



68006400 

68006500 
6 60Q660Q _ 



68006700 
68006800 
68006900 



IF NOT OBJ THEN SECUREC AC BASE + l ] » AC BAS£ + i 3 * AL BASE + 4 3 ) i % SOURCE 68007000 
IF NOT SRC THEN SECUREC At BASE + 1 3 . C 6 : 36 ] , AC bASE + 3 3 * AC BASE + ^ 3 ) ; JlOH j68007 lOO 
^^^^ '° ^^ 68007200 



PAR AM l» IF SRC OR 08 J 
LIBMS6CTR I* f ARAM* 
LiBMTNCr 1» TRUFI 



THEN 1 ELSE 2; 



68007300 
68007400 
68007500 



li 



i 

i 
• 
• 



12 

13 



18 



22 



24 



J27 
28 
29 ' 



33 
34 
35 ( 
36 
37 



40 
41 



42 



44 
45 
46 
47 
48 
49 
50 
61 
52 
53 
54 
55 
56 

3 



m 

• 



DOING i= 2i 68007600 
WANT Js WAITFOR := vMCPMsSg^ 68007700 
j>, GO TQ EXIT/ . 6PQ0 7a Q0 



END CASE O; 68007900 

' X....*. ...,.t.. * ,.•..,.. 68008000 

BEGIN X CASE 1 » RESULTS QF DIHECTDRY SEARCH 6fi008lQ0 

IF EVENTSCl] NEG 7 THEN * CiUAKU KiLt NUT PHt.5ENT 68008200 
' BEGIN 68008300 
* hORD \' -ACSASfct?]; . . ^ fiSQUflgOn. 



MSGPTR »« 36; 68008500 

GO ERR2J 680U8600 

JMlI 66 00 8700 



14 

P5 



18 
19 
20 
21 
22 
23 



28 
29 



IF EVENTSL2], [36:6] NEQ V THEIM % NUT "LOCK" FILE 66008800 

BEGIN 68008900 

WORD \' 'M^I^Sl*? , }i 68OO9QQ0 



MSGPTR »» 63i 66009100 

GO ERR2' 68009200 

end; . 68009300 

'6 OBJ i- B00LEAN(ACBASE + 5].[^6U J); 68009^00 

" SRC := B0aLEAN(ACHASE + 5].L47! U); 680U9500 

ACBASE-t-33 »= "ArHASF-^-a] ? % GUaHD FILF FIRST NaMI:' AEfiilS^iin.. 

AtBASE + 4] Is USERCODE; % «iuARO FILL SECQNU NAME 68009700 

GO TO SeCUR; 66009800 

^ - FND CASE \i . 68009900- 

X. ., 68010000 

BEGIN X CASE 2 - RESULTS OF LIBRARY MAINTENANCE 68010100 

^1_ IF ACBASFill NFfi 7 THEN % SFCvj^HTY M AINTE NAN CE IGNfl RE n <«,e"l"2"0 

BEGIN 68010300 

"• WORD »• ACBASE + ni 68010400 

"^ — ■ MSGPTR \9 .B6; 66010500- 



GO ERR2; 66010600 

end; 68010700 

check; ______„____ 66010710 



IF A[BASE]«0 THEN lAMIaO ElSE 68010800 

BEGIN 68010810 

"I naArBASFi.r.Taifs]; tmaxi»a[rase] .riftns]; 6ft0i0ft?n 

34 

35 
36 

37" 



PUB J=B(AtBASE3.Cl^«U); LuK l ^BC A C 6 ASE J t 1 16 $ U ) ; 68010830 

UNLKJ3B{A[BASEJ.C17S13); 68010840 

GQ TQ RESTRT; . 6fi0l0a'?Q 

end; 68010860 

GO TO Exit; 68O10900 

— END CASE 2/ 66011000 

END ALL cases; 68011100 

ERRU 68011200 

*'| ERHsw >* Anu — -_ 680^ 1 ?no 

MSGPTR Iw 8; 6601 UOO 

lAM |« VERROR; 68O115O0 

GO TO EXIT? . '. 66Q11600- 

ERR2J 68011700 

LITOUTC'ERR: ♦♦^NOCRLF); 68011800 

LITQUT.Cy^ ORP/CR LF) ; 6f|0U90n 

GO TO check; X check for MORE PA«AMtTERS 68012000 

"" EXlTl 68012100 

n ENP PROCEDURE LOCK IT; .^ 68012200 

%****************** **************** 11**111,*** it ******* I,*** *■)!**** it***** -kit ** i,fif){^QQQQQ 

PROCEDURE TAPEIT(LCW,A); BOOLEAN LCW; ARRAY ALOJ; 69000100 

%************************************************** i,***********-t,-t,it*i,*i,*i,()(^QQQ20Q 
BEGIN Aonnn^nn 



43 



♦5 



BEGIN 69000300 

REAL T#WORO; 69000400 

BOOLEAN so; \:::'.rJ.^y ^, .■■■,:. ■':..: ; ;. . .•■./;■ 69.000.500 



m • 



10 

11 

12 
13 
14 
15 
16 
17 
IB 



19 
20 



21 
22 



23 
24 



26 
26 
27 
28 



29 
30 
31 " 
32 

33 

34 



3S 
36 



37 
38 
39 
(0 
41 
42 



45 
t« 
47 
•8 



49 
50 



SI 
52 
53 
34 



55 
56 



LABEL exit; 

IF SCHEDULINE THEN 

IF nFVTCE = r.nNRAC OR 



CASE DOING OF 
BEGIN 



GCEHR("TAPE 

nFVKF=Rin?? 



THr,l\ GnFtiRCTAPF 



"f??6)j 



69000600 
69000700 

6900Qeno 



BEGIN X CASE 

IF FILENAME = C THEN GOt^^RC'NU FlLf'M); 

A[BASE-f2] <= aEBASE-HJ »= 100; % SEq. PARmMETpRS 



69000900 

69001000 

.69001100 



IF T «» A[SREGIsBASE-ACBASE33.FF 
BEGIN 

DO BEGIia ^^___ 



NEQ THEN % PARAMETERS GIVEN 



69001200 

69001300 
6900U0C 



IF (WORD« = AClNC(SHE(i)] ).[3I3] NEQ THEN 
MATCH(W0RD.C6;42]^"StQ ") SQ := THUE 
ELSE GOE PRtWQ R D> , pj ,, 



35CHR. STRING 



69001500 
69001600 

■ 6 9oa izaQ- 



ELSE IF W0ftD.Cir2J 
ELSE IF W0R0,tll23 



« THEN AtBASE+l3 
» 3 THEN Al8ASE*2i 

«&woRDr6tagtAi.fl)i 



69001800 

69001900 

-J &90U2 QQQ 



»» W0RD,t2U27 3 
«« WORD. £30118 3 



END UNTIL UECRCT) LEQ Qi 
IF NOT SQ THEN GDERRC'WHAT. 

FNOi ^ 



69002100 
69002200 
69002.100 



3a)j 



W0RKt03 j» o; 

WORKCIJ »• (LL+SYSTEM)&(REAL(FlLETYPEs8)3t3t47U3; 

WORKT?] i« iisrRpnnfi .^_____ __^__ 



69002A00 

690U2500 

-&SUJ-02600 



WQRK[33 Jx SOURCEFILE; 

W0RK[73 ta IF SQ THEN A[HASE+13 ELSE O; % 

M Q RK E8 3 »g ACBA S£t23; 8 ! UICKFhKnT FQR SEQ 



69002700 
69002600 



tikbi FUH SE<«1; 



diskwritecespd; 

RUNl t* "PAPER 
RUN2 tB '♦CANOE 



69003000 

69003100 

■ 69003200- 



ERRSw j= usercode; 

WANT t« VDISPATCH* 
pniNG »a ii 



69003300 
69003400 
6 900 3 500 



69003600 
69003700 
69003800 



END! X CASE 69003900 

^ * . * ...•..*.....* . * ...................... t ...*,.. 69004000 

RFGIN % T A SF 1 . ftOOnAinn 



IF EVENTScn = 1, THEN % lQvJ QK 

BEGIN 
SOURCEFILE := MAKEFNf'lS'SLDJ 



GooooBj t« false; 
end; 

TAM I» MSfiPTP IB Q; 



69004200 
69004300 
69O044Q0 



WRITEASTERISK 
* VOID 
end; % CASE 1 



i 



true; 



69004500 
69004600 
690047QQ 



£No all cases; 

EXIT J 

END PROCEDURE TAPFTTI 



%**1l^l^,*^^^k^,^r^,^l^,^l^,^li,^,■l,^,^,i,*^,^,^,i,*i,■k^,^,^,*■^,^t^,^,^,^l^t^c^,^c^,^,■k***^^,^r1,^^*^, 
PROCEDURE CHARGEIT(LCW'A); BOOLEAN Lcw; ARRAY AtOJ; 
X**************************************** ****** *********** 



69004800 
69004900 
6 90050 00 
69005100 
69005200 
69005300 



% 
% 



BEGIN 



VOID 
VOII) 



LABEL 
REAt 



exit; 
t; 

if scheduline then goehrc "charge 



71000000 

71000100 

71000 20Q, 

71000300 

71O0O4O0 

71 00050 Q 



"Moj; 



IF A[SREG»»BASE-ACBASE33. FF 

GOERR("NO CU0E"'7); 
T lai IF AnNC(SREG)3»C3»33 » 



71000600 
71000700 
71000750 



NEQ I THEN 
THEN 



71000800 
71000900 
7 10011000 



# • 



h 



.9 

10 

11 

12 

13 

U 

[15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 

94 

S5 
56 



DECCUNV(ACSKEG].C2l!27J) tLSt 
CHARGE J= TIMECOiMVCPTlME^FALSt); 



ALSREG],[6J42]; 



LBGOMTIME l« TIMECD; 

CHARGE l» Ti 

lQTQTt»FTIMFI*PTlMElsINPUTCTR!aQJ 



LDGONCtCW^At*]); 
WRITEASTERISK := TRUE/ 
TAM is o; 



BEGIN 



LABEL 

BOOLEAN 

RFAl 



ERR# exit; 

AFTER* LIB* 
rtORDt TYPE* 



toit; 

PC* If 



CASE DOING 
BEGIN X CASES, 
-SFGIN in CASE C 



GK 



BEGIN 



IF TPCDUNT NEQ THEN * NEED MERGE- 
i 
LITOUTC^WAIT* "»NncRLF)f 



TEMPJ=i; 
END ELSE 
REG IN. 



want:=vupdaie, 



CLEAR(W0RKt03*29); ^ 

WORKCU «» LLtVMCPMSGl33Mll73r 
WiRKt53i«S0URCEFIUri 



W0RK[43l*W0RK[6] {«USERC0DE; 
WORKC73 := MAKEFiNC"9S«.LL); 

wnRKr9i;°(;HAHGE? 



BEGIN 



PC«"AtSREG««BASE-AtBA6£3].FF; 

WHILE 1 LSS PC DO * PICK UP ALL PARAMETERS. 



lNC(I)i wORDtsAClNCCiiREG)]; 

TYPE »= IF W0RD.C2J4] = THEN » N OR 

ELSE IF WORD.U823 - 3 THE,^ 1 * ^^. 



-N 



ELSE 
ELSE 
CASE 



IF 

3; 

TYPE 



WORD,£l'23 » 1 THEN 2 

OF _^__ 



» SPECIAL CHAR. 
* ALPHA WORD, 



BEGIN 
BEGIN * PARAM IS 
IF NOT AFTER 



IF 



N* -N 

THEiN GQ£HR(CECCnNVCABS(WQHn))*fi); 

111 Y^ o n /^ 'r a fK t. 1^ j^ f'i tat 



WOfiO LSS 800 OR WORD GTR 2 a 00 C« 
BECCONVdHORO) it 36*63 STR S THEN 
W0RKC83 «* WOROi AFTER t* FALSE* 



71001100 
71001150 
710QU6Q 



EXIT! 

END chargeit; 

t • * *********** *it ******* 1l* *1>*^i**■k**^>**i,^i^,^l**^,■k■t,*^,^l^t^,^,1,i,^,^,1,i,i, it let ^,^t^,^l 

PROCEDURE SCHEDULE(LCW*A); BOOLEAN lCW; ARRAY ACQ]; 
%************************-k*i,***i,***-k**i,i,*iii,i,*-t,i,i,*i,i,i,i,i,i,i,i,i,i,i,.t,i,i,i,i, 



71001170 
71001180 
7100119Q 
71O01200 
71001300 

71001500 
71001600 
72000000 



72000100 
72000200 
72000 3 00 



72000i|00 
72000500 
72000600 



72000700 

72000800 

-72000900- 



72001000 
72001100 
7200 1 200 



72001300 
7200U00 
72001^ 



72001600 
72001700 
7200 1 600 
72001900 
72002000 
72Q0?050 



72002100 
72002200 
72002300 



72002400 
72002500 

7 2O0260Q 



72002700 
72002800 
72002900 



72003000 

72003100 

-12 003 200, 



60£RR(«TIM€ 



END N case; 

GaERRCDECC0NVCW0RD)»6 j; % PARAM IS +N 
BEGIN it CASE 2. (SPECIAL CHAR) 



72003300 
"*41);72003400 
72003500 



IF (LIBl»(WOR0»C*^»"/"J) AND 
END CASE 2; 
BEGIN i CASE 3^ (ALPHA WDRD) 



72003600 
72003700 
720p_3fl^5_ 



ELSE 



WORD 18 WORD. [61423; 
MATCH(W0RD*"TQ ♦•) 



TQIT THEN GQERRCNO USER", 39 H 72003900 

72004000 
72 0Q4 1 Q Q 



AFTEr:=LIB»»NOT CTQITlsTRUE) 



ELSE 



MATCHCWORO. "AFTER ") L IB » ^TOI T «=NOT { AFTER««TRUE ) 
MATCH(W0RD*"CHARG£ ") . 



72004200 
72004300 
7 20 044 00 



72004500 
72004600 
72004 620 



1^ 

3 



9 

10 

111 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 { 

30 



33 
34 
35 ( 
36 
37 



39 
40 
41 ( 
42 
43 



48 
49 



51 
52 
53 ( 



55 
56 ' 



m • 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 



24 
26 



26 

27 



28 
29 



30 

31" 



32 
33 
34 
35 
36 



38 
39 

♦0 
41 
42 
43 



45 
46 
47 
«8 



«9 
SO 



51 
52 
53 
M 



S5 
56 



aEfilN INCCl); WJHU:=A[lNC(SREti}]; 72004640 

tNCRKC9]> = IF wQHU.C3:3] GTR THEN * ALPHA 72004645 

wrRn.rft< 4?i flsl PrcroNvr wiiHn.r 6;4?i ); fnh /goo^ Asn 

ELSE X 72004660 

IF TOIT THEN WORKC33 »» WORD 72004700 

FLSF IF LTfi THFN WORK t A] }a wORn 7?Qn4flnn 

ELSE WOHKC53 »= WQKUi 72004900 

END CASE 3; 72005000 

END AH, CASFS? ^ . ^ 7?0Q5ion 

END ALL PARAMS; 72005200 

IF WORKt53 * THEN GOERHC"Na FlLE"»l)i 72005300 

I F WORK[33 a THEN aQFRRCVvig FTLE^iSS); Z^TLOSiUXO- 

IF W0RKt3J,[42«6J * " " THEN uOERRCWUHKl 3 ]# 42 ) J 72005450 

FINDC LL&I AM [33141: 7]»0^AtBASEJ J swDHK [ 53 * WQRK L 6 3 * USERCqOE ) ; 72005500 

A[HASEtn 8= wORKlJi; , niSKWBIlEf i--.:>Pl .),? ^ 7?Q0SAnn 

TEMP 1*2; DOING «« W WAITFOR »» IAM; 72005700 

END IF TPCOWNTi 72005800 

END DO I NG Qi . . 72Qfm9nn 

BEGIN % DOING = 1' RETURN AFTeR FINq ON INPoT FILE. 72006000 

IF EVENTStn LSS THEN iiUERRC AC fi ASt J / 2 ) ; « DOES NOT ExiSj. 72006100 

IF EVENTS t n » THEN fjOEKR f A f HASI: W 24) / % SFniRFn f ]\ f ^ /gnn^gnn 

FINDCLL&lAMC33J4l!7 3*0*ACaASE+U,uSERCOD£,USERCOOE); 72006300 

DOING »« 2; WAITFOR J* IAM; 72006-»00 

END DO I NG I t ^ — - — ^ 72nnA5r) n 

BEGIN * DOING 5 2* RETURN AFTER FIimd UiN OUTPUT FILE. 72006600 

IF EVENTSCn GEO THEN GQ£RH( AL aASE+ 1 3 * 3 ) ; 72006700 

LlTnUTfWAIT, "fNOCRlF)? .. „_ „ ZZS1Q&J5 0- 

EOJMSG Js NOT concise; WRITeASTERISK J» concise; 72006760 

RUNl t» ^SCHEDUL"; RuN2 J» "CANDE "; lAM »* VDISPATCH; 72006800 

- ERRSWt^USFRrOnFl it tlSFD BY DTSPATrH, 7?0Q6R'^ n 

END DOING 2; 72006900 

END ALL CASES DOING OF; 72007000 

_£XiXJ END OF SCHFnULF? . 7?0Q7i0Q 

x***********************#*************************#****,^***#^*^^^*#^^*,^j 73000000 

PROCEDURE SCHEDSTATUS (LCW#A)i BOOLEAN LCW; ARRAY AtO]; 73000100 

%************************ ******** *****i,i,**-t,i,i,i,i,**i,i,i,.i,i,*i,ii-it***ii*i,i,*,*.tfktt 7:'t0QQpOfl 

BEGIN 73000300" 

REAL Ji 73000400 

LABEL FXIT; 7^0Q0'SQn 

X 73OOO6OO 

REAL STREAM PROCEDURE STMeS8CW*N*E1*E2); VaLUE llrVii 73000700 

* * ■> 73O00B0Q 

BEGIN LOCAL DV; LABEL ERR' SCH/HUN* EXT^ UUN J 73000900 

di«=w; cijxCI+ei; go err; go err; go sch; gu run; go dun; 73001000 

DSl = dLlT"ABORTED."; TALLYIse; ^0 EXT; J ^0 Oi Q 1 Q 

OUNI DSl-SLIT^DONE."; TALLY{«5; GO TO EXT* 7300lY00 

SCHj OS»>"10LlT''SCHEDULEt).''; TALLY»*lO; SO TO EXT; 73001200 

RUNl DS>«8LIT''RUNNIN6(**J tALLV»«9J DVi^DlJ 73001300 

DI«=LOC E2; DSJs7FILL; DltsDv; SlJsLUC E2; 73001400 

8(IF SCs" " THEN SIt=Sl+i ELSE 73001500 

BEGIN nS»aCHR; TALLYtafALLY-H; END); 73001600 

OSiaLIT")"; GO TO EXTi 73001700 

ERRI DS«*4LIT''ERR«''; SI'sN; SI!»SI + 1* DS's7CHR; TALLY!*11; 73001800 

EXTt 5TMESS »« TALLY! 73001900 

END STREAM PROCEDURE STMeSS/ 73002000 

CASE DOING OF 73002100 

BEGIN 7300220 

BEGIN % CASE 73002300" 

IF CT»»ACSHEGt»8ASE-At0ASE3 3).FF NEQ t OR 73002400 

^ AUNCCSRfiiy.13133 ^ THEN GOERRCNAME »,6)i 73002500 



9 
10 



47 ' 

48 

49 

50 ^ 

51 

52 

53 < 

54 

55 

56 < 

5? 



n 

2 
3 



ACSREG].[1S5] != Q; 7300iJ600 

MATCHCVER8TARLE[T.[9:s)l],l6Ja2J»"STATUb ") 73002700 

.„ SCHf:DSTATCAC,.SRFG..1 ) ELSt; , ;jCriE,USTnPf A I liHF.GJ-U 73002600 

WAITFO« »» IAM; O0ING Sa H 73002900 

END CASE O; 73003000 
t ,...,. ,7^00:^1 nn 

BEGIN % CASE 1 73003200 

IF EVENTSCn LEQ 1 THEN 73003300 

BEGIN ^ ^ ^ ^ ^ , 7 3003^00 

MSGPOINTER »« EVENTSCll t 36* 73003500 

ENO; 73003600 

WRITFASTERlSKiaFAl.SE? 73001700 

T:aSTMESS(WCRKL0]'A[SRfc;fi3'EVtNTS[l]»DtCCQNvc£VENTSL2]))i 7 300 3800 
TWXOUT(LL*WDRKCOJ#TMi; 7 300 3900 

IAM ;« o ; 73004000 

END CASE i; 73004100 

ENO ALL cases; 73004200 

EXIT J . 73004300- 

END OF SCHEDSTAT; 73004400 

%*******•******************•*************************••************* ****74UOO0C0 
PROCEDURE LISTFIL E CL C W /A ?; BO OLL An l Cw; ARR/^y At 3/ IMMii^il. 

X***************************************************#******************,^7^000200 
BEGIN 74000300 

DEFINF : 7 ^QQQ4 nn 

UIMK s SPECS. [ lsl]#, BAS =. bpfccS.L iiUJ** ALG ' i>PECS,[ 3:13** 74000500 
COB s SPECS, [ 4Jn#* FTR = SPECS, C b:iJH(, TSP = SPECS, C dJlJ** 74000600 

XAL = S PECS , [ 7ii : »» SLQ = Sp £cS, [ a: ! ]** haT » SPFrS.r 9>13;>, VUiMmSL. 

LOK s SPECS, tiom** INF « SPECS. C 1 U 13 )»* C68 « SPECS. [12 ; U#; 74000600 
DEFINE 74000900 

SRC « SPECS. r47in»# OBJ = specs. C46»n», LKD » specs. [45;13#« 74QQlnon 

UNL s SPECS. [44»13#* SUL = SPECS , [ «3 U 3 #* PUB « SPECS , [42 S 1 3 » ; 74O0U00 
BOOLEAN FROM* TOO* SPECS* LITERAL* hAvElITERAL* HAVEOUTPUT. 74001200 

HAVEUSFR; 74001300 

REAL I* PC* WORD* NAMECQUNT* TYPE; 74001400 

LABEL RUNIT* GETOBJECT* ERR* EXIT* 74001500 

».»... , . . . ^ . ......,.,..., 74002900 

STREAM PROCEDURE HE AD ING ( l«(ORK ) * 74003000 

X , 74003100 

BEGIN 74003200 

duswork; osi«39liT"name type recs segs created "; 74003300 
ds:a41lit"accessed w/r w/b s-f lockd by "; 74003400 

ENn STREAM PBQGEOURE HFADlMGi 74003500 

% 740Q3600 

STREAM PROCEDURE DUTFORMAT 74003700 

(^ORK. FILNAM#FIlTYP*RFCS ,SEGS.CDAT*aUai/wPR,HFB/SAVFAC^SECNAM*AF( , G ); 740 03 800 

• • t • * . f ■•• f ..•.••••..'..••.«.•....•.•..*«*.«.•••«.«.... t ...*...•*.••...«.•.,*,, 7 A wQ 3900 
VALUE FlLNAM#FlLTYp,RECS#SEGS,CDftT*AOA'T,HpR,Wpe,SAVFAC,SECNAM*AFLG; 74004000 

- BEGIN I nCAL DVJ V'' ' .■■ ' .. . 74004100 

Dlt=WORK; SlJaLOC FILNAM; 740Q4200 

2{Sl:sSI+lj DSja7CHR; DS:=LIT" ")> % FILL NAME AnD TYPE 74004300 

2fnSt»5DFC; pV« = DIj UIt-nl*5? DSt'^FlLLi UP' UV); % R ECS A ND SEGS 740044 00 

DS»*2HT'» •♦; 0S»»8CHR; * CREATIO^ DATE 74004500 

DSimSLlT" «; AFLS(0I»«DI-3| DS«as3LlT" * "); 74004600 

P S » ?6 C HR ; % ACCrSSBD D ATE ■ 7flU047QQ 

3CDS»s5D£C; DVj»Di; Oi:=DI-5/ DS!*4FILL* Di»=UV); 74004800 

Slt»Sl*i; DS;»2LIT" "; DSt»7cHRi DSJs9lIT" "/ % SECURITY NAME 74004900 

End STREAM PRQf^EDURF niiTFORHAT; 7ziQ0Snnfl 

X ,., ,.,74005100 

PROCEDURE PRlNTIT(FlLNAM,FlLTYP);vALUE "riLNAM^F ILT YP; REAL FILNAM, FILTYP; 74005200 
* .»,,..,«.. . ,..♦»..,«■#.... . ■»....«#■, «♦... » , . ,■» . ».. «.»,«« , ..«,« *■» »,«,.,, > ,., 74v 05300 



9 
10 
11 
12 
13 
14 

is" 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

35 

36 

37" 

38 



41 
42 
43 
44 
45 



36 
37 
38 { 
39 
40 
41 < 
42 
43 
44 ( 
45 
46 
.47 < 
48 
49 
60 { 
51 
52 
53 t 
54 
55 
56 ' 
52 



46 
47 
)8 
49 
SO 
51 
B2 
53 
54 
55 
56 



h 



10 

11 



16 
17 
18 



19 

20 



21 



24 
2S 



27 
28 



30 



33 
34 
35 
36 

37" 



• 
• 



39 



49 
50 



52 



55 
56 



BEGIN RtAL 1* SECNaM^ LABEL SUMM; 

SEC\AM := IF BOOLEAN(WQRKCb].Ci: 1 J) THEN rtORK C b J , C 6 t 42 ] 

n SF TF WnRKr5T = 1P ANiH /JHRKCft] NFQ y^ THpi^ "P URI,, IC " 



* LOCKED 



ELSE IF W0RKCJ>3»12 AND W0RKC63cl2 THEN "UNiOCKD" 

ELSE " "I 

rnR n»1Q STfP t UmTTi ?<? n n i f wowKfTian thi^m fin rn siiumj 



SUMMJ 

OUTFORMAT(L'FlLNAM,FILTYP»(rtOf^KCM + n» C ( I" 1 )xwurK [8 J )* 

DATFCQNv{wnRK [ 3i . nniiHiwn AT£ r .aNV f w fi RK f -n . f m lh^^), 



WORKC03.Cia4 3#WORKEO).Cl5J15]»waHKE3 3,£2JlOJ'SECNAM/FALSE); 

TWXOUT<LL»LC03#?2#i); 

END PROCEDURE PRTKTITl ^ 



REAL 



STREAM PROCEDURE CHK(FIELD)' VALUE FIELD; 



BEGIN X COUNT NUMBER OF BITS ON IN FIELD 

su«LOc field; sitssi+s; 

IBCIF SB THEM TALLY laTALI Y4.t j SKIP SRl; 

chksstally; 

end stream procedure chkj 



BOOLEAN STREAM PROCEDURE MASKCBITJ; VALUE BIT; 

BEGIN 
DM»LOC MASKt HTTfSKTP DR J t DStaSFTJ 



END mask; 
% , 

CAiiF nniNfl flF.. 



BEGIN 
BEGIN 
LARFL 



% CASE 

DUMMYi 



SYNTAX ANALYSIS 



PC 1= COMMONCEll; % TRANSFERRED FHQM PROCEDURt- 

CLEAR(W0RK,29); % ZERO UUT WORK ARRAY 

WORKC2 3 tsW0RKC4] IslsERcUDE; y^ORKU ] ; s" t£L£ T YP"j 



namecount i» 20; % 

WHILE I LSS PC DO 
BEGIN 



POINTER f08 FILE NAMES 



"LISTIT" 
% DEFAULT qPTlQN.^ 



I J= I + 1; 

IF (WOROJ=A[SHEG!=SREG + l]) ,tn23 = i 
IF WORns"/" THEN W5Rni="FRUM 



IF WORD.C3»33*0 THEN GO 
MATCHCWORO»''LITERAL") 

If HAVELITERAL THEN GO 



THEN 
» ^C3'^?i33; 



ELSE MATCH(WORD#"TO 

IF HAVEOUTPUT THEN 
ELSE MATrH(WFIRn."FRnM 



ERR ELSE WORD,Cl!53Jso; 
ERR ELSE LlTERAL<»TRUE 



GQ LRR 

" } , 



ELSE T0O:sTRut 



IF HAVEUSER THEN GO ERR ELSE FROmJsTRUE 
ELSE IF TOO TMEN 
IF HAVFQUTPUT ThfN Gfl FRR £LSF , 



BEGIN WORK[63 :sWORD; TOO J ^NQT (HA vEOUTPuT ;»TRuE ) ; END 
ELSE IF FROM THEN 

IF HAVEUSER THEN GO FRR 



BEGIN WORKC43 JaWORo; 
ELSE IF LITERAL THEN 
IF HAVFLtTrRAL THFN r.Q 



ELSE 

FROM* «NDTCHAVEUSER»«T RUE); END 

ERR ElSF 



74005400 
74005500 
7^00^^600 



74005610 
74005620 
7aQQ57QX}- 



74005710 
74005800 

..ijimissisx. 

74006000 

74OO6IOO 

- 74Q06 2QJ3. 



74OO63OO 

74006400 

,74 006 50-0- 



74006600 
74006700 

7flqQ6aflfl- 



74006900 

74007000 

. 7400710 

74007110 
74007120 
74007 X1^- 

74007140 
,74007150 
-24i2.flZ200 



74007300 
74007400 



74007500 
74007600 
74007700 

74007800 
74007900 
74OO8QOQ 



74008100 
74008200 
74008300 



74008400 
74OO85OO 
74008600 



74008700 
74008800 
74008900 



74009000 
74009100 
7 4QQ9PQ0 



74O093OO 
74009400 
740095QQ 



BEGIN WQRKC53 »«W0RD; LI TlKAL J^NOTf H AyELl TERAl »=TRUE ) ; 
ELSE MATCHCWORCi^PRlNTER") 
IF HAVEOUTPUT THFN GO £RR ELSE 



74009600 

74009700 
74009ftOQ 



END 



BEGIN W0RKC63|»W0RD; HAVEOUTPUT IsTRUEJ END 
ELSE IF TYPE»tFlNaAWOfiOCWQRD&7£lt43sSj*RESWR|3TABLEC0 3#ie) 
S PrCSl»SPFrS OR MASKfTYPEtaOxREAl fTYPE GtR 13)1 



74009900 

74010000 
74010100 



74010200 
H THEN74010300 
74Q 1 040 Q 



ji 



>T 



13 



(!5 
|16 
17 
18 
19 
20 



22 
23 
24 
25 
26 
27 
28 
29 
30 



34 
35 
36 

37" 



39 



42 
43' 



45 



SO 



52 
53 



55 
56 



ELSE % ASSUME IT IS A FILE NAkL 

BEGIN 
IF CNAME CnUNTtsNAMFCnUNT-H} flTR 2V ThFN GPPRhf "TQQMANY" . -^Q ) ^ 



w0rkcnamec0unt3 
end; 

FND WHli F STAT^•^^^^Tt 



js WORD' % SAVE FILE NAME 



740U900 
Z-HOlSOOO 



IF FROH THEN GCERH("FR0M 

IF TOO THEN GCERRC'TQ 

IF LITERAL THEN GnFRR f "I T Tr Rfll ". fl ) f 






74012200 
7<»012300 
-ZMSniAOSL— 



IF CHK(SPECS,tlll2]) GTR 1 
IF CHK(SPECS,[42U3) GTR I 
IF rHK(SPFrS.CZi6l9-)1 fiTR 1 



THEN 
THEN 
THEN 



GaERR("FIiTYPE''*31); 

G0£RRC«SECU«TY",8); 
GQFRRC».^Br»naj»».«)? 

TEMP ts 7; 

IF (NAMEC0UNT«sNAVECUUNT-2l) = THEN % unE FIuEnAME 

IF (PREVRCW-HASE) GTR Hi THEN it LNQUCH RUQM IN STATK 



74012500 

74012600 

.74012700. 



74012800 
74012900 
74013000 



SPEClHtU 



BEGIN % LET CANDE OQ THE I/O 
ACBASE] »* TV X LOOP COUNTER 
ACBASE -H3 »c WnRKfgn; ^! SAVF 



74013100 
74013200 

740133QQ- 



FKF NAMF fM STapk 



ACBASE+7] «a WCRKt4]; % SAvE USERNAME 

FIND<LL&lAMC33l41»73*0*WURKC2lJ*WGKKL4]^UStRCaDE); % SRC 
.tI ND( LL XlAMr33}41 j 7 1 / 0/ wUr k r 2 1 J . r ft ; 3<s 1 . tvORK r 4 1 » li.spRr.nnF ^ ; 



DOING Is 2; 

WAiTFOR »a iam; 

GO TO FXITJ 



JL-Haj-- 



end; 

W0RKC3] 
WORKC73 



74013400 
74013500 

74013700 
74013600 

— 74 0l3ft0a. 
74014000 
74014100 

_2JL0lil2£La.. 



»= REAL(SPECS); 
«» NAMECUUKTJ 



OISKWRITE(ESPI); 

IF HAVEOUTPUT THEN X OUTPUT MEDIA SPECIFIED 
MATCH<W0RK[61* "PRINTER") ELSE 



74014300 
74014400 
7401 4 !3QQ. 



MATCH(WGRKt6]^"TELETYp") ELSE 

BEGIN % DISK FILE NAME 
FINDCLLslAMr33t4l 8 7 ] ^ 0. wurK r 6 3 MiSFRrnp p , t.SLRr.nnr 1 ; 

ACBASE*13 «« W0RKt61i X SAVE OUTPUT FILE NAME 

DOING «« 1; 
WATTFOR »s IAM; 



74014600 
74014700 
740148 00. 



74014900 
74015000 
74O151Q0. 



-oa 



GO TO exit; 

end; 

RUNTT; X TO PR i KTrR l]R tf l ftypf 



7401S200 
74015300 
74015400 



end; X CASE © 



74015500 
74015600 
7 4 1 5700 -— 



RFGTN X C A SF 1 ^ SraHrH T f iR n U TP.jT rrit.- nt^ p ys^ 



IF EVENTStn 
RUNit: 
RUNl »= "LFILE,') 



IAM »■ vdispatch; 

EOJMSQ r« NOT CONCISE; 

wrttfastertsk I* GQNCise; 



Geo c then GOERRCAtdASE + n^i); s already present 

RUN? 8= "CjANUl "/ ERRSW >- liSERrnnp? 



74015800 
74015900 

74Qtftono 



Jli_ 



74016100 
74016200 
74016300 



GO TO exit; 

end; X CASE 



74016400 
74016500 
7401660Q 



1 



BEGIN X CASE 

I »» ACBASE3 
AtBASE»r3 I* 



IF 



2 - SEARCH FOR FILE NAME 

»« ACBASE] - 2; 

EVEN TSm; ACBASEtl-H] t» EvENTSl23.Clflll5]; % HDR 



74016700 
74016800 
74016 900 



I GTR 3 THEN X WAIT FOR OOJECT FILE RESULT 

BEGIN 

WAITFOR 



74017000 
74017100 



II. 



GO TO 

end; 

A CBASE»3 3 



t« iam; 



Exit; 

LEa AND AtBAS E^S] LES THEN GUERRC A[ BASE»1 1 >2 ^ t 



74017300 
74017400 
74017500 



74017600 
74017700 
74017800 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



Q 






10 

I 11 

12 

13 

I 14 

15 

16 
I 17 

18 

19 
I 20 

21 

22 

23 

24 

25 

26 

27 

28 

28 

M 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
44 
46 
46 
47 
48 
49 
50 
51 
52 
53 
S4 



ss 

56 



TlMEOFDAY(WORKt23*TlMECONVCTlME.Cl J^TRULn; 

WORKCO] := date; WCHKCn «= AIB^^L*?}} HLANK(waHKCn); % usernaml 

TWX0UTtLL,wnRKrm«?^.1 -M 



HEADINGCWORK)! TWXOUTCLL* WORK 1 3 * ?2 ^ 1); 

WRITEASTCRISK l« TRUE; 

If AtBASE*53 LEQ THEm GO QETnBjECT; it 



74017900 
7':»018000 



LLDISKREAD := AtBASE+6]; 

WANT J= voiskRead; 

DOING := 3; 



SOURCE VERSION NOT QM ni^K 



GO exit; 
end; % case 



74018200 
74018300 
74018400 
74018500 
74018600 
-ZL^£iaZQ.O 



««« ■««#♦««»*««.«««.».«.«...«... 



BEGIN % CASE 3 - SOURCE Flli. HEADER IN CORE 

IF (I»»W0RKC4] ,[36:6] ) GTR NuMQFfrPES THtN l.'SQJ 

PRTNTTT(A[RA5iF4-1 1.TYPFTARI Ff Jl^t 

IF AC8ASE+33 LEO THEN 



1 « « 1 » 



BEGIN 



n; GO TO fxtt; 



end; 
geiobjectj 

I.UnTSKRFAn. 



i' ATBASEt^]? 



WANT »* VDISKREAO; 
DOING «» 4; 

GO TO fxit; 



End; % case 3 
RFaiN*x'rA^r*4 - 



nBjFCT HEflDp:w I^ znui: 



'■' t" * ii' « — V . H >i r„, — =__= — t Jp sJr u I — nLauE.'" — *-B — UiJlX. 

IF (I««W0RKC4],t36S6]) GTR NUMOFTYPES THEN I «s C; 
I Js "0BJ( ) •• & TYPETABt.EtnC30!O»63; 
PRINTITCArBASF*13M3; 



lAM {= o; 

GO TO EXIT; 
FND CASF 4; 



END ALU cases; 
ERRJ ERRSW »w ACSREG]; 
EXlTi 



MSGPTR I* s; lAM la vERRQH; 



tND PROCEDURE LISTFILES; 

%****^^*********^•****■k^,^,*^,1,■k^r*^,^,i,^,■^,^,■n•^,^,^,^,1,^,^,■^,^,^,^,^,^,^,^,^,i,i,^,^,^,^,■,,i,i,^,^^, 
PRO CEDURE UPDATFd CW>A); Bnm LAN LCW; ARRAY Atoi; 



BEGIN 
LABEL dummy; 



CASE DOING CF 
QEGIN 

IF TP COUNTgQ THFN Ian.>=Q LLSF it CaSF Q. 

BEGIN X CASE 

W0RKC03 J* D0GH0USEILL3 »* O; 



W0RKC13 tu (LL*SYSTEM3SRCFlLETYPEa8)t3U7tn 
&R(M0NIT0RBIT)C9:47:1]; 
W0RKC21J=USERC0DE; W0KK[4]J=uSERLijC; 
WORKC33 t~ squrcefhe; 



M0VE{l6,WURDS*CTRANDBASEC0J,W0RKt5 3); 

ERRSW i« usercode; 

RUNi t» '♦LIST "; RUN2 l» '*CAN0£ " 



END 



WANT := vclgseworktable; 

DISKWRITECESPn; 
CASE o; 



DOING := i; 



begin % CASE 1 ~~ " ■ 

WANT »» VOISPATCH; DOING »« 2; ERRSW «• uSERCOOE; 

updatebit Is i; % maRk update in progress 



74018800 
74018900 

74019100 
74019200 

.-740 19 inn 



74019400 
74019500 
74Qt96nn 



74019700 

74019800 

JLAiUil9ilO-_. 



74020000 

74020100 

-74020200 



74020300 
74O2O4OO 
74U20500- 



74020600 
74020700 
74020800- 



74020900 
74021000 

74021200 

74021300 

-ZJLfl2UQ0 ,. 

74021500 

75000000 
75000100 



75000200 

75000300 
-7500Q35Q 



75000400 
75000500 
7 5OQO 6OQ 



75000700 
75OOO8OO 
75000900 



75000910 
75001000 
7500110^ 



75001200 

75001300 
75001400 



75001500 
75001600 
75001700 



75001800 
75001900 
75001910 



9 

10 
11 ' 
12 

13 

14 ( 

15 

16 

17 < 

IB 

19 

20 ' 

21 

22 

23 ' 

24 

26 

26 ( 

2a 

29 ( 

30 
31 
32 t 

33 
34 
35 { 

36 
37 
38 i 

39 

40 

41 4 

42 

43 

44 I 

46 

46 

47 

48 

49 

SO 

51 

62 

53 I 

54 

55 

66< 

.5 



m 



>T 



END CASE i; 
BEGIN % CASE 2 
IF EVFNT.Srn n 1 



THEN % EO.J OK 



BEGIN 

SOURCEFILE S» MAKtFHC'lS' 

CANCELCKPKAC*]); 



75002000 

75002100 

-7b00£zaQ- 



LL); 



75002210 
75002220 
7S002300 



4 
5 
6 
'/ 
8 
9 
10 

n 

12 
13 

14 

r!6 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43 



end; 

lAMJsO; IF BREAKCRWRu ANO 

FNn CASF ?; 



NOT UQGLlCENaE ThtN L, INECLE Afl CLCW# A [ * J ) ' 



75002310 

75002320 

.75002400 



END ALL cases; 
END CLEANWORKFILE; 



75002500 
75002600 



AINWUKKFILt; 75002600 

ncEDiiRr SP^rsrA^ 7Annninn 



real procedure specscan 

(iadr*oadr#siz*vocab#vsize,which,ftog*eal:rs)> 
value vsizf^ftogyeadrs; 



76000100 
76000110 
76000200 



REAL iadr*oadr»siz*vsize»which*ftoG/E:aors; 

array VOCABtO]; 

B EQ IN : 



LABEL L; 

REAL STREAM PROCEDURE SPCSCAN 
(TA DR ^QAQR »SIZ»vnC A B^VSlZEi 



76000300 
76000310 
76000320- 



WHlCh^FTnG/EAnRSO/ 



VALUE VSIZE^FTOG*EADRS; 
BEGIN LOCAL T# SV»DV*C0MA; 

CQMM fnT S PECIAL SC ANNE R F 



76000330 

76000340 

■ 7 6 000 .^5^. 



LABEL 



qS. 



RETURNS A VALUE ( TO 
1 » "INSTRUCTION" 



NEXTfL£TTER,NUMBR,FUL#EXlT' 

n/RFPi APF" T^s^wu^TT^^ | S, 



76000360 
76000^00 
7 6000500- 



bPtCSCAN 3 OF 



2 a D ELI MITED S TRING 



3 s SEQUENCE NUMBER' 

ti » SEQUENCE NUMBER FOLLOWED BY "-« 

5 g END OF RECnRC W I T H CnNTINtlATinN 



76000600 

76000700 

- 76000 8 00 



C SEQUENCE RANGE ), 
CHARA CTEH ("t" . ) 



76000900 
76001000 
7600 1 100 



6 « 

7 s 
A0=_ 



END OF STATEMENT / 

FILE NAME y, 

ERROR (MISSING STrInG UELIMJ^TER OR STRING TOQ lUNG ) 



76001200 

76001210 

76001 3Q Q . 



11= ERROR (FiNO/REPLACE "INSTRUCTION" TOO 
12a ERROR (FINB/REPLACE "INSTRUCTION" NOT 
138 ERROR (SEQIIFNIPF NllMWFR TOO LUNG) _. 



LONGi 
RECOGNIZED) 



7600U00 
76001500 

■ 76001600 



1/4 = MISSING FILE NAME 
POSITION OF "INSTRUCTION" 
= "FIND " . ^__ 



RETURNED TO "WHICH'M 



76001610 
76001700 
760QlflQ0 



1 
2 



"RE 
JlLl 



PLACE" 

RST" 

TERAL" 



76001900 
76002000 
76002100 



45 

46 
47 
48 
49 
50 
SI 
52 
53 
54 
55 
56 



u » 
5 * 



"WI 

"AR 



TH" 
ROW" 



7 « 

8 * 

9 ■ 



•♦SE 



0" 
QUENCE< 



76002200 
76002300 

76002500 
76002600 
760027QQ 



END 



10 = 

11 = 

OF C 



"FI 
"SI 
OMM 



LE" 
TE" 

ent; 



Slt«IA 

NEXT» IF 

IF SC« 



or; 
sc 

LEF 



Si JeS 

»" ♦• T 

tarrow 



76002710 
76002720 
76002600 



i*5; si»»sc; tally;»6; comautally; 76002900 

HEN BEGIN SUsSl + i; GO NEXT; ENU; % SKIP OVER BLANKS 76003000 
THEN a END OF gECOHQ 76003100 



BEGI 
SVis 
DV>« 



N 

si; 
DU_ 



sn»Loc sv; si:ssi + b; 

DltaLOC EADRS; DH-nU5; 



IF 3 SCsDC THEN % END OF RECORD 
BEGIN 
TALLYt*COMA; SPCSCAN tsTALLY; GO TO EXIT; 



76003200 
76003210 

7600322iL 



76003230 
76003240 
760032 50 



h 



9 
10 
11 
12 



13 



16 
17 
18 
19 
20 
21 



24 

2S 
26 
27 
28 
29 
30 



31 
32 



34 
35 



36 

37" 

38 



: 

42 



43 



45 
46 

47 



«8 



49 
50 
51 



62 
53 



56 

56 



end; 
SI i=sv; 

end; 



Dls=Dv; 



IF SCs^f" THEN % CCULD BE A CONTINUATION 

BEGIN TALLY »«5; COMAI«TALLY; 
TAllYt«6; C0MAI«TAI|Y1 1 WflT A 



CHARACTER 

sit'Si+i; GO TO next; 

CQNTTNUATrnN 



end; 



FTOG(JUMP OUT TO FIIL)/ % JU^P TU FIUENaMl SCAi>*N£.R 
IF SCaALPHA THEN % COULD BE ALPHABET* DIGIT Ort "QmARK" 
RFGIN IF SC LSS "n" THrM CQ TH lETTFR; 



IF SC GTR "9« 
END IF alpha; 



THEN ELSE GO TO NUMBR; 



* MUST BE A DELIMITER 

UljaLOC t; Dl:sDI + 7; l)S5 = chr; 
^.SLlsSli. ai.laLn£-.-SiiX-iLLXaXlAllai 

Sit.SV; TALLYf*10; spcscani«taLly; 

63(IF SC«LEFTARROW THEN 
BEGIN ____^__________ 



« SAVE THE 



DELlMtTER 
STARTING ADORFSS 



TALLYlsO; 



sv:«si; su*LOC sv; 

IF 3SC»DC THEN JUMP 

FN O; 



SIJ=SI*5; DIS=LUC EADRS; DlSsDl+b; 
OUT TO EXIT ELSE Si:=Sv; 



IF SCaT THEN UUMP QUT; % 2ND DELIMITER 
TALLYJ»TALLY + i; SIJsSI + d; 

IF TOGGLE THEN ELSE t TOD LONG 



BEGIN tallY:=io; spcscan » =t ALLY / GO lxit; enp; 
sij=si+i; sv:=si; % skip over 2nd uelImitlr* jave address 
-U-aQ - A i i Yt sn^ in e t; u i ; = si7; o .S8 =/^ds j % s i ze 



sijaLOC sv; diisIadr; dsjbwds; % 

TALLYJag; SPCSCANJsTALLY; % CODE 

GO TO exit; ^ 



NEXT address 

FOR delimited string 



letter: % should be an "INSTRUCTION" 
SVt^Si; TALLY> = n; % SAVF STARTING ADDRESS 



S»U»LOC sv; OIIsOAOR; DS»*WdS; SIJsSV; 
9(IF SC LEQ "9" THEN ELSE JUMP OUT; 

IF scalpha Then else jump out; sii«sn-i; TALLY;sTALLY-».n; 



IF TOGGLE THEN % TOO LONG 

BEGIN TALLYlsn; SPCSC AN : = F ALLY ; GO EXIT; EaD; 

ovt=si; si;sLOC Dv; di:=iadr; us;=wds; a next address 



T|»TaLLY; SllaLOC T; Sn = SI + 7; % SiZf. Op "INSTRUCTION" 
IF SC LSS "a" THEN % 3 CHARACTERS MINIMUM 

BEGIN TALLYlsigJ SPCSCAN taTALL Y; 60 EXIT; ENO; 



» NOW CHECK Input string against vucabulary 
di:=vocab; dvj^di; tally:so; 
vsiZE(Sn=sv; if t SC ~ uc then jump out; 



Di»*Dv; DnnDi + a; ovi»di; tallyistally+i); 
IF toggle then else X no match 

BEGIN TALLY<*ia; SPCSCAN isTALLY; GO ExIt; END; 



TiaTALLY; SitsLOC T; DMsWHICH; DS:=WDS; 

tally:=i; spcscan:stally; % code for "Instruction"; 
Q Q TQ exi t; 



NUMBRt % SHOULD BE A SEQUENCE NUMBER 

svtssi; sn»LQC sv; dii»oaor; ostaxps; 



% STARTING ADDRESS 



SlisSv; TALLY:»o; 

«(IF SC GTR "9" THEN JUMP QUT; 

IF SC LSS "0" THEN JUMP OUT; sis=si+i; 



TALLYlsTALLYn); 



IF TOGGLE THEN ELSE X TOO LONG 

BEGIN TALLY»«13; SPCSCANtwTALLY; GO EXIT; ENO; 

Totally; 63(if so»r ** thcn sii*si*i else jump out); 



76003260 
76003270 



76003300 
76003400 
76Q03500- 



76003550 
76003600 

76003800 
76003900 
^-^J<SQQflQao_ 



7600«l00 

76004200 

- 7 6 00^ 3 00 . 



76004400 

76004500 

JLAfl 04 5ia. 



76004520 

76004530 

-ZAiIQ-4550- 



76004600 
76004700 

7 600it443-0- 



76004900 

76005000 

.Z^IliLS-l-O^ 



76005200 
76005300 
760QS400. 



,76005500 
76005600 
76 Q 57QQ 



76005800 
76005900 
760060 00 

76006100 
76006200 

76 g o6 3 aa. 



76006400 
76006500 
76006600 



76006700 
76006800 
76006900 
7'6007'o6o 
76007100 



76007300 
76007400 
760075 00 



,76007600 
76007700 
76007800 



76007900 
76008000 
76008100 



76008200 
76008300 
76008400 



T< 



B < 

9 

10 



65 
66 I 
5? 



^ 



IF SC*"-" THEN % StGUENCE RANGE SHtCIFlED 

BEGIN SllaSI + i; TALLYJS4; tNO tli-bE TALI.Y:=3; 

^vtasi; sit»i.nc sv; nj;?iADRj u sis^ ns; % n jix j a dd r ess 



76008500 
76008600 
7600^700 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

lis 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

43 



5II-L0C T; OH«SIZ; U5>«*WDS; % SIZL of field 76008800 

SPCSCANIxTALLY; go to exit; 76008900 

*» , 76Q0890S 



FIILJ 

bVjsS 
Slt ^S 



X LOOKING F 

i; siJaLoc 

V; TAILY»=0 



OR A FILE NAME 

sv; oi:=oadr; qss="DSj % siahi of string / 



IF SCsALPHA THEN 

BEGIN TALLYfl 

7(IF SC«ALP H A TH 



76008910 
7600891b 
76HC1 8 9 2 



IF SC 
BEG 

111 



ELSE % MISSING FILE NAME 

Hi spcscan««tally; go TO exit; end; 

FN ELSF JUMP ODT; SllgSuit T ALL Y l»TALI.. Y*l ) , 



*"/" THEN % 
IN SI I«SI + 1 
F SCsAl PHA 



SECOND NAME GIVEN 
; TALLY: = TALLY+li * S!\IP OVER "/" 
TH EN £: lS E, JUMP . UWT/ SP'S I^ W T a i l Y ' =T A LL YfU ? 



76008925 
76008930 
76006935 



end; 

5Vt«Si; SU-LOC 
TteTAlLV ; STIsLn 



76008945 
76008950 
7fiQQ69fvO 



sv; ousiadr; osjshds; % next address 

c t; DTiP.sn; Qstg^ns; i sT7F qf fiif nahf 



Tallyj=7; spcscanistally; GO EXIT; * cDde FOR file Name 

EXITJ 

END stream proc edur e spcsc a n; 



SPECSCA 

(IAD 

END PRO 



NJsSPCSCAN 
R#OADR,SIZ, 
CEDURE SPEC 



yOCAB#VSlZE/WHlCH,FTOG/EADRS); 
SCANJ 



%***#******* ****** 
PROCEDURE REPLACEI 
X******** ********* 



76008965 
76008970 
76008975.- 

76008980 
76009000 

76009UO 
76009120 



********************************************** 
T(LCW*STACK); bOOLtAN LCW; ARRAY STACK[0]; 
******«•***•*****•*****•*•*•*• ******** * * * * * * * * 



BEGIN 
COMMENT 
STACK 



********76009 200 
760U9300 
***^****750Q9aQ0_ 



ROUTINE 
CQDE> 



TO CHECK SYNTAX AND PACK INFORMATION INTO STACK. 



76009500 
76009600 
7ft QQ 97Qn.- 



STACKCBASE*! J.tOltOl] Cl = "FILE 
STACK[BASE + lJ, [02101] Cl = INPUT 
STACKEflASF-«-n.r03tOn CI T OUTPUT 



STACKtBASE+l3. 
STACKCBASE+13. 
STACKtBASE't-13. 



C®4I01] Cl 
COSJOn (1 
CB6l0n Cl 



« "SITk 
8 "FIND 
a "WE PL A 



" INSTRUCTION RECEIVED) 
FILE SPECIFIED ) 
FILF .SPECIFIED ) 



££. 



IN 
IN 

JJi 



STRUCTION 
STRUCTION 
STRUCTION 



76009710 
76009720 
7rtC;Q9710 



RECEIVED) 
RECEIVED) 
RECEIVED) 



76009740 
76009600 
760099 0Q 



STACK[BASE+13 , 
STACKCBASE + n. 
ST ACK[ BA?F *1, 3 , 



C07:011 Cl 
[08:01] Cl 

[n ;ov3 Cl 



= "FIH6T 
= "LITER 
3 "PRINT 



AL 



IN 
IN 



STRUCTION 
STRUCTION 
§TRUCT 1( ]N 



STACKCBASE+n. 
STA(JKCBASE+13. 
STACK[BASE*n. 



tl2t01] Cl 
C17I0U Cl 

c 18 ton Cl 



m "SEQUE 
s "TEXT 
» RE PL AC 



Nce" 

E OR 



IK 

IN 

£1 



STRUCTION 
STRUCTION 
ND STATEME 



RECEIVED) 
RECEIVED) 
RFCFIVFD) 



76010000 
76010100 



RECEIVED) 
RECEIVED) 
N T C OMP LETE) 



76010300 
76010400 
760 10500 



STACK[BA 
STACK[BA 
STACKCBA 



SE+1], 
SE+1], 

SE+iii 



[19:01] Cl 

[20104] .C 

[24:24K .c 



CHARACTE 
1ST CHAR 
2N0 CHAR 



R CODE 

ACTER 

ACTER 



PRECECD 
« TYPE 
" 1 IF "FI 



: OF" 



= FIRST REPLACE INSTRUCTION RECVD) 76010600 

STRING COUNT ) 76010700 

TOTAL SUE QP STA TEM LNT C NO. Qf CHA RACtER S_ MQ l OeOO 



EACH "STR 
STRING C 
nSl» ONLY 



ING" IN 
2# 3 OR 

» IF 



stack: 
4 ) 

ALL C FOR 



REPLACE ) 



76010900 
76011000 



47 

ta 

49 
>0 
51 

u 

M 
S4 
iS 

56 
V 



3RD CHAR 

4TH CHAR 

THE ROUTIN 



ACTER » 1 IF "LITERAL" COMPARISCN* IF NOT 

ACTER « SIZE C NO OF CHARACTERS IN oTRiNG ), 

E USES MESAGE/CANOE KECUHPS MSGvAL THRu MSGVAL-»6 



7601 
7601 
7601 



1200 
1300 



END OF comment; 
DEFINE WRO » STAC 
FTPS a WHO, 



WEBASE + U i 

founn »» 



7601 
7601 

-76Q1 



1500 
1600 
161 



INFIL 

OUTFIL 

SITE 



= WRD, 
« WRD, 



[02:0n »p 
[03!01] »f 
[Q4I01] u. 



7601 

7601 
7601 



1620 

1630 
1640 



FNO 

REP 

-FRST 



» WHO, 
* WRO, 

.,S..i„..n.HL.iJ..,». 



[05101] «, 
t06t0l3 ## 

f 07 inn ## 



7601 
7601 

7601 



1700 

ieoo 

1900 



m • 



h 



ia 
I 11 

12 
13 
t 14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 



36 
3?" 
38 
39 



40 
41 
42 
43' 



♦6 
46 
47 
48 



49 
JO 
51 
52 
53 
S4 



S5 

56 

B3 



LIT = WRD,[08J01] *, 
PRNT » WRD,Cll:on »p 



TEXT ■ WBO.Ci/tOn #» 

OK n wRD.fiaion ## 



76012000 
760i2l00 
76012200 



STRGCNT » WHD.t20;0A] J»# 
TSIZ « WRD,t2at24] », 

PREV » STAc Kt gASEJ tf; 



760123C0 
76012400 
76Q12500 



ARRAY VOCABtOllSJ; 
DEFINE MSGVAL s 50 
I NT EflER X i 



76012600 

76012700 

. 76 12 8QQ. 



## A s STACK i; 



76012900 
76013000 
76QU1Q0. 



im ' t.\it.n K2 : __^ ■____^_____ 

REAL IAPR*OAOR*AR0A0R*£NDAUR*TYPE*Si^*VSIZ*whlCli' 76013200 

LABEL EXiT/CASEi; 76013300 



;;••*•*•*•••*••• *»***<t •»•»•» 



76013500 



REAL STREAM PRQCEDURliRRVALUe(OA0R)f VALUE OADR* ^»^ 

X ************ t ************************************************ 4^ *** A 7 g ]^ 3 ^ 

BEGIN X EXTRACT STRIKfirQRFRRQR MESSAfiF 760l37nn 

76013600 



~ *i:i a — fc /\ ] n w V, I — <!' I n A m M run r nnwn ncuvaMt 

blfaOAOR; DIlsLOO ERRVALUE/ DSJ=8LlT"C 
7(IF SC=ALPHA THEN OS;=CHR ELSE JU^P OUT); 



"> Di:»Dl-7; 



ENU STREAM PR O CED U R E ERHVALME; 
X*************** 



76013900 
ZAOl^QOQ 



Lnf>Y,^h.vu,> , rQm «*umj 

*********************************************** ****760 14 lOO 

CNVERTCDADRfSIZ); VALUE OADR^SIZ; 76014200 

***************** * * *** * '^ * * * t *****************,* ^ *^^ J. T t.rn It '>rif\ 



REAL STREAM PROCEDURE -., ,,---,, .„^.. «„_ , .«-..^vv 

X* **************************************************** ****»***»***jt7ft0 I gjOn 



r*******************»*** , 



BEGIN SI»=OADr; DIJsLOC CNVERT; DSSsSiZ OCT; 
ENU STREAM PROCEDURE CNVERT; 

^! ****************••***^r•**^^*****••^>***1H»^, 

STREAM PROCEDURE CLEARSTACKC STACK, TijiZ ) I VALUE TSU; 76Ui4700 

X*********************** ***************** *******************A******7601480Q 
BEG IN 1 ZERO ntiT THE STACk TO AvOfD PnSSlHH: Fl AG BTT FRRnRSt 76Ql4 9no 

76015000 



76014400 
76014500 
76014600 
76014700 



LOCAL T1#T2; 

si»=LOC Tsiz; sii=si+6; 
Di«=LOc Ti; Di;>Di^7; ds; = chr; pisgLOc T2; dii = du7; nStspHR; 

DUsSTACK; X should point to STACKtSASE + S] 
Tl(2(0S«a32LIT'»0"))| T2(DSI»L IT^O" ); 
END STREAM PROCEDURE CLEARSTACK; 



76015100 
7601520Q, 



X****************************** 
STREAM PROCEDURE SETL( L' AROADRS, ENDAURS )/ 



76015300 
76015400 
7 601 550Q. 



— — — — ' . f gw !.-> juu 

*********** *******************#*****750l5600 
■'"'■"• 76015700 



X************ ******** *****»***********ji.|H,****»**»**ir***»**^***^***^7ftQ^5flQQ 



BEGIN LOCAL Sv; 

oiisl; Dst^eLiT"?"; d5»« lit leftarrowj 

nSt»7LTT"n'»l DSi«| ^t w< 



DS»=7LIT"0'S DSS=LIT "»". 
0S»s7LlT''0"; DSISLIT "<". 

ns{=7LiT"Q*^? ns;qLiT ">", 



76015900 
76016000 
76016010 



OS « » 7L tl**Ofl OS t »L It "s**; 
DSla7LIT"0«| DSliLiT '♦a"; 
SIl*LJ SVl»Sl; SltaslOC SVi 01 i*£NDADRSf OS taWDSI 

SiisSV; si»«si+6; svjsSi; si;=loc bv; 0I»=ARQA0RS; d 

n CTOCAu aonf^rni tar ct ti • 



76016020 
76016030 

76016050 
76016060 
76016100 



END STREAM PROCEDURE SETL; 

:*******•**************************•*********»** 



SlsWQS; 76016200 

76016300 

*************** ****760l.6a0Q 



X******************************************************************760l6a0Q 

STREAM PROCEDURE SAIEl TC StaCK,ULDsU'OADR^ AODSlZ' T YPE#NE WSI 2)1 76016500 

X* ********#***************;**************************«************* *75Q 16600 

VALUF OLDSlZiOADR^ADDfilZ^TYPE^NEWSlZJ 76016700 



VALUF OLDSlZiOADR^ADDfilZ^TYPE^NEWSlZJ 
COMMENT SAVE STRING AND PREFIX IN STACK; 
BEGIN LOCAL T1*T2,LT; 

si>»LOC OLOsiz; sn8sn.6; % characters to skip uver 

DII^LOC Tlj DnaOI + 7; 0S«aCHRi 0I»*L0C T2; DU»DI + 7; DSl«iCMRi 
Dll«STACKJ Dlt«DI+16; % S«IP OVE« 1ST 2 WORDS 
T lf?(nl»»0U3?n) QH»0I4T2J X SKIP OVER PREVIOUS STRINGS 



76016800 
76016900 
7601700 
76017100 
76017200 
7 6 01 73 00 



m • 



h 



5 

6 

I 

8 

9 
10 
11 
12 
13 
14 
j15 

lis' 

t 
17 

18 



19 
20 
21 
22 



23 

24 

25 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 



«S 
46 
47 
•8 

49 
50 



52 
53 
54 



55 
56 



i>It=LDC type; SltsSl + 7; USJsChR; a string TYPt ( 2*3*4 OR 7 ) 76017400 

i>II«STACK; SlJaSl-t-Q; 760x7500 

SKIP SB; if SB THCN nSt=LlT"l" FL5£ nS;-LlT"Q"J it "FIRST" ^0n^- 7<SQ^7Ann 

SB THEN DS»sLiT"l" ELSE DS«*LIT"0«; % "LITERAL" 



LTtsDU SKIP SB; IF 

sii-Loc AODsiz; sii«si+7; 
sii«qadr; DstaAnosiz chr; 



DS«*CH«; % 
% TRAN$fti.K 



SIZE OF 
STRING 



STRING 



SIj»LOC NEWSIZ; SI:«SX + 4* DIJ=3TACK; Dl:=Ul + lii* DS:«4 CHR/ 
% CHECK FOR ALL BLANKS IN TYPE 1 STRINGS 

STtainc typf; sn=sif7; if sc="r' THFh 



end; 
end stream procedure savelt; 



SIRE am' "procedure" siTvoc abTvoc AB ) ; 



76017700 

76017800 

76Q 1 79 QQ- 

76018000 

76018010 

76QlflO?0 

76018030 

76018040 

7601 8050 

76016060 
' 76018100 

„r*u;i " - 76018 300 



BEGIN SH-QaOR; AOOSIZdF Sc«" " THEN SllaSl + l ELSE JUMP OUT); 
IF TOGGLE THEN % ALL BLANKS, MUST BE IN "LITERAL" MODE 

BEGIN DltaLi; DSt»LTT"l"; END; 



blRtAM l-WOCtUURE SI TVDC AB ( VGC AB ) ; 76018300 

BEGlN-JJLtgVQCABi PS t s 32L I T"FIN a RFPl ACF FIRST l lTrRA| wj 7 601^500 

DSls48LIT"WlTH ARROW PRINT END SEQULnCETEXT "/ 76018600 

0Sl»16LIT"FILE SiTt "; 76018610 

DS?s4SLIT"NFQ EilL Ui^ OIB LEJi G EK " J 7ft0i , fi .^gn 

END STREAM PROCEDURE SETVOCAB; 76QlH7nn 



STREAM PROCEDURE SETVOCAB; fo«*afyu 

%*•**************«***•**«*********•***«***#* ********************* A* 75O 18800 
CA§F nniNfi OF . 7f^Q\ 9ic\n 

76019200 



BEGIN 

BEGIN % CASE 

LABEL L DQP*STRl NG ,ERRrR ; 



if not continuebit then % first caul on the routine 

continuebit:btrue; phev»»-i; end; 

I. NOT ENflUfiH ROOM 



76019300 
76Q194Q0 



BEGIN STACKt8ASE+l]«*0> 
IF PRFVROW m BASF j ia ^h THpN 



BEGIN CLEARSTACKCSTACKtBASE+2],rSI2); 

GOERRC"NO ROOM"»MSGVAL); 

ENn> 



IADR«8ADDRESS(W0RKC1J); % ADDRESS OF 

SETV0CA8CV0CAS); VSIZ>*18; % SET UP 

SFTI fl .AROAQR.FNRApH^; t lOrATinN OF 



INPUT RECURO 

VOCABULARY 

ff NTIVI.-S ANp I FFT AHRnw 



76019500 
76019600 
76019700 
76019800 
76019900 
76Q?Q00Q 
760iJOlO0 
76020200 
76020300 
76020400 




FRSTIsO; LITMO; OKJ»©l 
END X IF WHI0M LSS g 
ELSE TF WHICH LSS 6 TH E N % 



760P1200 



BEGIN IF REP + FND NEQ 1 THEN GLi ERROR; 
IF WHICH LSS 4 THEN % "FIRST" OR "LITERAL" 
BEGIN, IF .STRGCNT NEQ THEN GO TO ERROR* 



"FtRST"iWLTT£RAL"«"WlTH" O R " ARROW" 



76021300 
76021400 
7ftQ?l5no 



IF WHICH"? THEN IF 
ELSE IF LIT»1 THEN 

E ND » IF WiiCH L SS 



FRST»1 THEN 
QO TO E8R0R 

4 . 



GO TO ERHUR ELSE FRST»«l 
ELSE LIT»*i; 



ELSE IF WHlCH«4 THEN GO TO LDUf" 
ELSE % WHICH a 5 C "ARROW" ) 

BEGIN OADR«^>ARQAOr; SlZiai; TYPE»-2; 



END X IF WHICH » 5 
END X IF WHICH lSS 6 
FLSF IF WHTCHwft TNFN % ^PRINT" 



X "WITH" CQPTlONAL WORD 
GQ TQ string; 



76021600 
76021700 
76021800 
76021900 
76022000 
- 7 6 H2 2 10Q - 



76022200 
76022300 
76 02 240 Q 



76022500 
76022600 
76 022700 



li 



10 

11 



13 



16 
17 
18 
19 
20 
21 



24 
2G 



27 
28 



30 



33 



34 
35 



36 

37* 



39 



42 



49 

SO 



52 



35 
S6 



BEGIN IF PRNTsl THEN GO TG EfiHGR; PRNltsU TExTJ=U> oEQlaO; 
END % IF WHICW » 6 
E L SE I F WHlCH a 7 TH E N % "ENQ" __^ „ 



BEGIN OAORloENOAORj SIZJ«8^ Tyi*EHi3; GO TO STRING; 
END X ir «HICi«7 
FlSF T F SrQ»TrXT l^gQ h Ahin WMfCH I Sfi in TUFN GO TO yRRHR 



ELSE IF WHlCHsB THEN SEQ »« 1 
ELSE IF WHICH»9 THEN TEXTl* 1 
FL SF IF WHICH»1Q THEN % FTLF INS iRUrT T fli. 



BEGIN IF FRCP"! THEN GO £R«Qfti FTOGlaU 

IF INFIL»0 aNO PRNT-0 THEN lNFILi»l 

Ei S£ IF OyTriL«0 TftEN OUTFlLial - 



ELSE GO TO error; X TOO MANY F ILES SPEC IFUD 
END X IF WHICH s 10 
XtAE-4-E-WHlCHan, THEN SiTE»»1 



ELSE ir WHICH LE« 47 THEN 

SEQiN oaori»aroadr4.(which-h >; 
- STU^ti TYPFi«gr 



GO TO string; 



G O TO 



end; 
loop; 



E-NO X IF TYPEsl 

Else if type lss 

STRTMftl 1_ 



5 THEN X A STRING OR SEQUENCE NUMBER 



BEGIN IF TYPE=2 THEN X A STRING 

BEGIN IF FND+HEP NEQ 1 THEN GU TO 
IF REPsi THEN X A REPLAC£ S TBING 



error; 



BEGIN STRGCNTi«STRQCNT + !> 

IF SIZ»0 AND STRGCNT*! THEN GQ 

TYPF t» S TBRCNTt X TFLI , SA VF I t 



TO error; 
whfthfr o« d 



IF STRGCNTa2 THEN % HaVE BOTH OLD AND NEW STRINGS 

BEGIN REPIsO; STRGCNTtao; UKIsi; END/ 
END X I F A R E PLACE .STR I NG 



OR Nrw STRTNG 



ELSE OKj«i; X IF A "FIND" STRING 
END X IF TYPE » 2 
Fl SF X A SFQlJFNnF NUMRFR. TVPF a ^ n» ti 



BEGIN Xl»CNVERT(OADR*SIZ); 

IF X LEQ PREV THEN GO TO ERROR 

FND IF A 5EQ NO? 



ElSE PREVJsX; i CHECK NUMBER 



XI»TSIZ + SIZ ♦ 4; X TOTAL NO. OF CHARACTERS TO BE ADDED 
IF X GTR 230 THEN X NOT EnOuGH ROOM 
RFGIN ClFARSTACKrSTACKtBA5£ 42]*TSTZ'>{ CnNTlNUfWTT <s FAlSri 



goerr("toolong''*msgval); 
end x if x gtr 230 

EL SE 5AVElT(STACK[BASE].TSlZ>0AUR,slZ.TyPE.X); % STORE STRING 



SO TO 

END X 

ELSr TF 



LOOP! 

IF TYPE lss 5 
TYPF « ■^ THfW 



X A C0NT1NUATTON CHARA(;T£R aNH LFFT aRRQW 



BEGIN TEMP 1= 32; WAITFQR J= VINPUT; 

IF scheduline then requestip(ll); go to exit; 

END % IF TYPF « 5 



Else if type » 6 then x call out the program 

BEGIN 

CONTlNU EBlt l« FAI SE; 



IF SOURCEFlLEaO AND iNFRsO THEN 

BEGIN CLEARSTACK(STACKC8AS£+2].TSIZ); 

e nd; . 



G0EKHC"N0 file'vmsgval); 



TEMP t9 3; 

IF NOT BOOLEAN(OK) TH£N 

BEGIN CLEARSTACK(STACKtBASE^2 3*TSIZj; 



76022800 

76022900 

7 6 ii 300 0- 



76023100 
76023200 
76023100 



76023400 
76023405 

76 023 4 JUL 



76023415 
76023420 
76021425 



76023430 
76023435 
7602:^440 



76023450 
76023460 
76023470 



76023480 
76023490 
7<^Q23'?0 

76023600 
76023700 
7602^800 — 



76023900 
76024000 
760 2 41 



76024200 
76024210 
760 24 300 



76024400 
76024500 
76024600 



76024700 
76024800 



76025000 
76025100 
76025200 



76025300 
76025400 
7 6 02 5 'son 



76025600 

76025700 

J:6025fl00 



76025900 

76026000 
76026^00 



76026200 
76026210 
76026300 



76026400 
76026500 
7 6 86600 



W~)^ 



■r< 



12 



16 



18 
19 
20 ' 



23 



26 I 
27 
28 
29 I 
30 



34 

35' 

36 

37 

38 < 

39 



76026610 
76026620 
76026630 



76026700 
76026000 
7602»900 



44 
45 

46 
47 
48 
49 
SO ' 



54 
56 

56 ' 
S7 



e 



h 



|,6 
17 
18 



19 
20 



23 
24 
25 
26 
27 
28 
29 



31 



34 
35 



36 
37' 



39 



41 
42 
43 
44 

45 



<8 

49 
50 



53 
S4 



55 
56 

5Z_ 



gderrc'incompl'vmscval); 
end; 

CLf: AR( ^H DRK Cn3^29); 



MOVEOO* WORDS* STACKCBASE + 13* WURK[0]), 

DISKWRIT£CESP2)J 

CLE ARSTACKC STACK tRASE>;i!l»TSTZ); 



IF TPCOUNT NEQ THEN 
BEGIN 
LTTnt)TC'*WAlT, "fNncRLD/ 



DOING «« 1; 

WANT j« vupdate; 

GO TO FXTTf 



END 
ELSE GO TO CASEU 
END % IF TYPF = i^ 



ELSE IF TYPE-7 THEN % FILE NAME 

BEGIN 
JL-i»-XSXZ-Jfe SIZ * Ai % NO OF CHARACTERS TO rl£ APPFD 



IF X GTR 230 THEN % NOT ENOUGH ROOM 

BEGIN CLEARSTACKC STACK CBA3E + 2 J »TSU); 
GO E RRC' !- TOOLONG" * MS G VA L ) ; 



continuebit:sfalse; 



END X IF X GTR 230 
ELSE SAVEIT(STACK[BASE3*TSI2»0A0H*SIZ>TYPE#X); 
-^TOGtaO; 



GO TO loop; 

END % IF TYPE = 7 
LLSF % MU ST_R F A N ER ROR 



BEGIN 
MSGPTR 

error: 



i» MSGVAL ♦ TYPE - 9; 



TEMP »s 3; 

CLEARSTACK{STaCK[BASE-»-2 3*TSU); 
CONTlNUEfllT t? FALSE.; 



FN D 



goerrcerrvalue(oadR)*mssptr); 

END IF AN error; 

CASE o; 



BEGIN % CASE 1 
CASEU 
CLEA RC W 0RK [Q3*29 ) ; 



WORKC03ISESP2; 

WORKCSltaMAKEFNClS'SLtJ' 
WORK t H 3 t SWORK f 6 3 » «USERCOPF ; 



WORKC53 j=sourcefile; 

WORKi:73 Ja FILETYPE; % CHECK FQH TYPE DATA FILES 
RUNlt»lF BOOLEAN(FND) THEN "FINU " ELSE "RLPL ACE^' ; 



run2i«if booleancfno) 
errswi^usercode; 

niSKWRITEfESPli; 



THEN "DISK 



ELSE "CANDE 



IF BODLEAN(FND) THEN 
BEGIN 
lAMtsyPlSPATCH; COMMONVALuEtsESPi; LITUur("wAlT 



76027000 
76027100 
7ft^J2720n 



76027300 
76027<»00 
76Q 2750JQ- 



76027600 
76027700 

76027800 



END 
ELSE 

BEGIN 



NUCRLF) 



76027900 
76028000 
76028100 



76028200 
76028300 

7 6 28/^ 00 



76028410 
76028415 
76028 ^1 20 



7602842S 

76028430 
- 7 60 2 8 43^- 



76028440 
76028445 
76 28 4 50 



76028455 
76028460 
7 6 Q 2 H 5 00 



76028600 
76O28700 
7602 8 800 



76028900 
76029000 
760 2 91 



76029200 
76029300 
760 2 9 4 



76029500 
76029600 
7 60 2 970 



76029800 
76029900 
7603QQQQ 



76030100 
76030150 

76 03.0200 

76 030300 
76030400 
76Q30'^0Q 



76030600 
76030700 
760307 10 



WANT J»VDISPATCH;D0INGS=2;IF not CONCISE THEN LI TGUTC "WAI T. 

end; 

EOJMSG :s NOT concise; WRITEASTEHISK Is CQnCISE; 



76030720 
76030730 
760307 40 



1) 



>76030750 
76030760 
76030800 



% VOID 

GO TO exit; 

END CASE 1; 



76030900 

76031000 

76 3 1100 



li 



55 

56( 

57; 



h 



1 

' 2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



19 
20 
21 
22 



} 23 

24 
25 

> 26 
27 

2B 

► « 

30 

I 32 

33 

34 
I 35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

«6 



47 
48 



49 
50 
51 
52 



M 

ss 



BEGIN % CASE 2 
LABEL dummy; 

IFJOMMQNCE I I . E?M ] = n Th f n x uDHtAM rn.i 



BEGIN 

IF BOOLEAN(FREP) THEN 
- I F CQMMONrFLI .rp^l271 MFQ 



76031200 
76031210 
76QX1300 



BEGIN 

SOURCEFILE !s f< AKtFN ( "IS'SLD / 

GQQOnBJ 1= FALSE? 



Q THE N X SlJRSTTTtiTTQMS MApf 



76O3UO0 
76031500 
7ftQ3tftnn 



CANCELCKPKAC*)); 

end; 

WRTTEASTFffTSKfTRliri 



76031700 

76031800 

J6Q31.9XU:.. 



END % IF EOJ OK 
ELSE 

RFfilN % FRRHR EOj 



76032000 
76032100 
76032200. 



p c u A ij i — 41 — r, n n u n t y >j __^___ 

IF SCHEDULINE AND BOOLEANCFREP) AND NOT No'sTUP THEN SCHEDERROR; 

LINECLEARrLPW. Ar*1>J 



LINECLEAR(LCW,AC*3)i 
MSfiPTR 18 MSGVAt,J 



WRITEASTERISK := FALSt; 
END ; % IF ERROR EOJ 
lAM ta WANIT is UlAfJpnK f= Q! 



76032300 

76032400 
-7d0-i2500 „ 
76032600 
760.32700 
76Q,^?80e-^ 



END CASE 2; 
END ALL CASES; 
EXlTt 



76032900 
76033000 
76033100 . 



END PROCEDURE REPLACIT; 



76033200 
76033300 
7 6 033 4 -0- 



u.w rnuv-tuunc rtrtAt-lM 76033500 

DDnr^^*nr*****;![*********************** ****** ****************************90016000 
PRQCED U R F RFMFMHFRTHT .S (ixnn onuly nrjo 



■ ■ ■~. ,.i- u ..i n i n c n c nD E n I n ^ a \n , nji QnUl7Q0 

Jnn****************** *********************** ****************************90018000 
BOOLEAN LCW; onn^of^nn 



RERIN 



DEFINE CTR s C3J6] *, UStQORGHEN = C12836J »i 
REAL STREAM PROCEDURE BITNUMBER {Vi 
VALUE Ti 



LABEL 



BEGIN 



l; 

SI»8 LDr 



XL 



Sit* si+2; 



6(IF Scs THEN BEGIN iiH=Sn.i; T ALL Y j = T ALL Y + 6; END 

ELSE 
6( I F SB THFN BEGIN SKIP 1 Si^i T ALL Y : =T Al L Y ♦ 1 > FNll 



90019000 

90021000 
90022000 

9no?3onQ 

90024000 
90025000 
9Q026nnn 



-LL 



END 



REAL 



ELSE 

JUMP 0UT 2 TO D); 

BITNUMRFRU TALlYt 

stream; 
% 

LINK> lf<> TfS; 



90027000 

90028000 
90029000 



90030000 
90031000 
90032000 



BEGIN 



S' t« tobecontrol; ~~ ~ ——^ — - 

T0BECQNTR0l,U8E00R0PEnJ« R<Bfws* tubecontrol.useooropen) 

— OR not B(T«»R(N0T BCW41) OR B(W))))j 

IF LINK:= 35 - BlTNUMdER (T) lSS THEN 



90033000 
90034000 
90035 000 



90036000 
90037000 
90036000 



LITOUT(*'NUTDUNE"^CRlF)> TUBECONTRUL i= s; 



END IF NOTREMEMBERED ELSE 
BEGIN 

THINGSTODO I* B(W >* RCTHINGSTODO ? 



90039000 
90040000 
90041000 



* u; 



IF W GTR 1 THEN TOBEDONEC H( THI NGSlAST ;» ] , CT R l« 
T0BEB0NE[LINK,0] ts T&LINKClJ40:8]; 

THlNGSLASTt= B(LINK); ___^^ 

IF W * 1 THEN THINGSLINK»« BCLINK)/ 

MOVE (15*WOROS*WQRKCOJ»TOBEDONE[HNK*13 )* 



90042000 
90043000 
90044000 



link; 



90045000 
90046000 
9004700 



MOVE <5>WORDS>EVENTS£0J>T0BED0NEtLlNK^16]); 



90048000 
90049000 
90050000 



1 

2 

3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 I 

15 

16 

17 i 

18 

19 

2C ( 

21 

22 

23 ' 

24 

2S 

26 ( 

27 

26 

29 { 

30 

31 

32 % 

33 

34 

35 % 

36 

37 

38 I 

39 

40 

41 4 

42 

43 

44 1 

46 

46 

46 

49 

50 f 

51 

S2 

53 H 

54 

56 H 
57 






^ 



FND 



INC(TOBECONTHOL.CTR); 

IF TOBECONTROl.CIK GTK 20 ThtK I^EC a\u StD ATA 

TF RFMFMPFREn; 



j= false; 



END OF REMEMBERTHlSj 
PROCEDURE fiETSHMETHlNriTOaO <irw»A)8 ' 



90051000 
90052000 

9nQ5:->oflo 



BEGIN 
PE'-'lNf. CTR = f^t6] ff> USFDQBOPFN - fi?;.lf,J tf; 



90054000 

******»************j;90055000 

ROO L E A N L CWJ ARRAY fl[03J QnO«^Annn 



REAL LINK* W* TL» I# COUNT* LCOUNT* LMAx; 
LABEL AGAIN, EXIT* 

l,MAViaREAI.CTHlN6.STnnn); 



90058000 
90059000 



again: 



90060000 
90061000 
9Q06110Q 



90062000 

90063000 

-90064000 



LCaUNTl=LCOUNT+l* 

TL «» REALdHINGSLAST); 

LINK»sR{THTNGSLTNK?;DLC R(THlN GSJiliiy,Ii 

THlNGSLIhlKjs8(n»<Wl*TQ8EDqNEi:tlNK*0J),CTR); 90065000 

TOBECONTROL.USEDOROPENJw X TURN OFF THE BIT FOR ROWtLINK] 90066000 

R(ftfTnR£nnNTRnL.u.sennRnPFN) and B(w>3; 9oq^7ooo 

MOVE t 15* WDHDS*TGHEnni\,Eri TNK .m 1 . AiLlflKf m 1 : onnAflnnn 



MOVE CIS* WORDS* TOBEDOi\E CLINK* On*rtiJRKLO]); 
MOVE C 05' WORDS* TUbEDONE CLINK* 16]* tVENTS[0]); 
IF F VFNTRFAS(.1N = \/I^PUT OR r VF MTRF ASUm = yTF at Hf w nk 
rwrMTHc A«inKi-.wrnit ATT tuC m 



EVENTREASON«VEQUATE Th£N 
BEGIN 
wnRKAHRS Ig AnnRF.«;5iCM flWK[n V 



COUNT I' CWQRK[0]-1 J,Ci9J9J; 

WORKENDADRS: = (wURKAORS + COUNT.[itO:5JUCaUNTC30»45»3]* 
TMn : 



90068000 
90069000 
90069010- 

90069015 
90069020 

90069030- 



end; 



DECR(TOBECONTROL.CTR); 

IF TOBECONTROL.CTR LEQ 20 THEN WECANUSEDATA t» TRUE; 

RFASflNH* EV/FNTRFASnNU 



90069040 
90069050 
90069060 



IF savedwhileinitbusy then 

BEGIN % GET THAT ONE FiRbT, 

IF RE ASON LSS VTNPUT OH REASON = W A j T lNf;SC W , SC WWA | TR n S 

THEN SAVEDWHILEINITBUSY J « FALSE EWSE 

BEGIN % THIS ISNT IT, 
IF LCOUNT GTR LMAX THEN 



90070000 
90071000 

90Q7?nno 



90073000 
900/4000 
90075000 
90076000 
90077000 
9007 7100 



BEGIN 90077200 

REASCN!=V£RR0R; EHH^W:="SYS,ERH"; BUSYLINE»*FALSE* 90077300 
LINE[LL*MSGPTKLUC] :*28; % TASK WAb DISCONTINUED 90077400 



end; 



GO TO exit; 
end; 

REMgMBERTHrS(LCW); 



GQ a ga in ; 



90077500 
90077600 
90078000 



WHILE I NEQ TL DO 

IF W«?TnREnnNECI*l63.LlBi7] LSS VTNPUT 

nia U m Ui A T T T fcl/* e/» w «S/»liiui a t to T t e TLitri, 



OR 



w * waitingscw,scwwait8Its then 

SESIN ■ 

savfdwhileinitbusyi»true; 



90079000 
90080000 
90O61QQ0 



EX I T' 



END 
E ND 



END ELSE IS=T0B£DQNECI'0].CTR; 
IF SAVEDWHILEINITBUSY* 
OF GETSHMETHlNGTOnO; 



GO EXIT* 



90082000 
900830G0 
9Q a40 0Q_ 



90085000 

90086000 

T*i>\? I uuy,^ 90067000 

****************************'*******************************************X90088000 

'■»' BOOLEAN LCW; ARRAY ACOj; 90089000 



PROCEDURE FINISHED (Lew* A); BOOLEAN LCW; aRHaY acOJ; 90089000 

BEGIN 90091000 



BEGIN 
LABEL 



RESTRT* EXIT* 90091100 

* ' * * « . . » , ,... ,, . . 9009 1 200 

STREAM PROCEDURE PLSLOSOFF(WORK); 90091300 

BEGIN 01 I«W0Rk; 90091400 

90091500 



QStaitll rmY nutt srHFni i Lrn tt mf is iiP, PLrAs;F \ ug npr a<; ** f 



T 

2 

3 

4 

S 

6 

7 

8 

9 

10 

11 \ 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 I 

24 

2S 

26 ( 

27 

2S 

29 4 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 4 

39 

40 

41 4 

42 

43 

44 I 

45 

46 

47 < 

4« 

49 

50 f 

51 

52 

53 % 

54 

55 

56 1 



% 
# 



16 

17 

IB 

19 

20 

21 

Z2 

23 

24 

2S . ■• 

26 

2' 

28 

29 

30 

31 " 

32 

33 

34 

35 



36 

37" 

38 

39 



42 

♦3' 

44 

45 

46 

47 

48 

49 

50 



52 
53 
54 



55 
56 



•^z^ 



USj=17LIT"SaaN 

END plslogoff; 
».♦.... .., 



AS PCSi)IBLE,'S 



STREAM PROCEDURE TEILHIMBYE( WQRk); 
BEGIN on "WORK > 
Q S la a 7 L n" S 0RRY,BUT YOU A «E P a ST 



900V1600 

900^1700 

,900S>1800 



ustssatiywE must 
END tellhimbye; 

x. ».>...,. 



DISCONNECT YOU."^ 



YDUR S CHED U L fc H TIME A ND "; 



90091900 
90092000 
9009 2 100 



BOOUEAN STREAM PROCEOuRE TlMEOK(N*A); VAUUE H,M 
BEGIN SII-LOC Al SU*SI + 4J NCSKIP SB); 

IF SB THEN TALLYHi; TiMEOKtBTAll y; 



90092200 
90092300 

,9009^400, 



END 
X.*, 



timeok; 



90092500 
90092600 
90092700- 



AH.OQNE 



i- TRUE, i 



IF BOOUEANCTlMERESTRlCTilT) THEN % USER Has RESTRICTED TIME PERIOD 

IF NOT TlMEOK(ENTIER<TlMENOW>sTlM£Cl)/216000)*TlMELlMlTS) THEN 

IF NOT NOTIFirP THF^ St tiSFR IS NOT AWARF HIS TIME IS DP 



90092800 

,90092900 

90093000 



BEGIN PLSLOgOfFCWORK); TWxOuT (LL> hDRK [0 J * 62* 2 )> 

N0TIFY8IT ;a REAL(TRUE); NOTlFYflME »5 JIMENUW^ 

ELSE 



90093100 
90093200 
90093300 



END 



BEGIN IF TlMENOH - NOTIFYTImE GTR GRACEPERIQD THEN 

BEGIN TEttHIMBYECWORK); TWXOUT (LL» WORK C03 ^ 70* 2) # NOSAVEJ 
LlNECt.EAR(iCWiA[*1)? AfBASFlMOi RYFf) rw.At*iu fin FviT; 



BEGIN 



IF INITlATEDWHiLEflUSY THEN 
-X F LL I KFO N E W THEN »^A I T I Nfi S f . >v 8= I L I NFD 



end; 



ELSE WAITINGSCW.SCWWAITBITS »= O; 
INITIATEDWHILEBUSY J» BOflLEAN(LLlNFO » «0); 
IF S^VrnWHlLFrNTTwUSY ThfN go RfSTHT fLSF GO FXITt 



BUSYLINE 



S= FAL;>t, 



% voin 



% VOID 



BE GIN 



IF REAL (THINGSTOdO) » THEN 



ALLMCPWSG := FALSE; 

LiBMSGCTR l~ Oi 

IF SCHFDULIN£ THEN SEQUESTIP(LL) 



90093/tOO 
90093500 

ail O93 520- 

90093600 

'TRUE; 90093700 

End; £N D t9 0Q93 flQj3 

90094000 
90095000 

9^ 0_R6-00 

90097000 

90098000 

9009 9000 

90100000 
90101000 

90102000 — 

90103000 
90104000 

9Q1Q5QQQ 



ELSE 

IF WRITEASTERISK THEN 
TWXOiJTCLL>ASTOR>l>l); 



RESTRTt 



writeastlrisk«»false; go exit; 
end; 

COMMFNTt SQMFTHING HAS BEEN REMEMBFRFD; 



90106000 

90107000 
90107100 
90107200 
90108000 
90109000 



RESTASTnEEOEO is TRUE; 
GETS0METHlNGT0DDCLCw*At*3)l 



90110000 
90111000 
.9iIlJ^QQ.a 
90113000 
9OIUO00 
90115000 



90116000 
X***** ******** ***•*********«****•******'***** ******* ********************X90 117000 

DEFINE BUlLDSCW ~SCW :sO&WAI TFORC 1 t4 H 7] &PRE VRC WL 1 7 140 < al&BASE 9Q118QQ0 

t25»40»8UD0INGC33>41J73&IAMC40t40t8Uin«*6l2J 90119000 

«; 90120000 

DEFINE BUILDRCW »RCW;»»SCW&SREac03l40 t 81&PAR AM [ 1 1 > 41 » 73 &TEMP 9Q121Q0Q 



DEFINE 



STQR ERCW 



n Lfi *." 9\,n aanco L u 3 i # w t o j &r mh ftw 1 1 u «t 1 > f j & 1 t,nr yui<;iuuu 

[l8t41»7J&DUlNG[33l41J7 3<tIA(^C40l40J8 3i2Cl«46»23 90122000 
»; 90123000 



#1 



= 3CWPR£V-1 1:^ riCW «; 



DEFINE 



RECALLRCW*BEGIN 



ROW I»iACPREVRCW«»SCWPR£V3; 

PABAM fRCWPARAM j 



9Q124Q0Q 

90125000 
90126000 
90127000 



TEMP 
BASE 
uQiNG 



!=KCWTtHP ' 
Ssr^CWBASE ; 

;=RCi'^DniNr7/ 



lAM «»RCWIAM i 
SREQ tsRCMSREGJ 



a;PAG F 



WANT i=waitfor:*u; 

END QF RECALLRCm Ki 



90128000 
9012V000 

9nuonno 

90131000 

90132000 

-9Q1330QQ 

90134000 



90135000 
90136000 
X 90137000 

BOOLE AN PROC ED URE AKnTHERQPCHATlQN (LCW> AiJ 90139QQQ 



BOOLE AN PROC ED URE AKnTHERQPCRATl ON (LCW> AiJ 90139QQQ 

BOOLEAN LCW; 90141000 

90142000. 



ARRAY 



ACQ]; 



LABEL 



BEGIN 



LU 



Li; 

IF TAM N F Q TH E N 



BEGIN COM^^ENT THIS PROCEDURE wiLL BE RECALLED; 

BUILDRC^*; STORERCw; 
-EM) % PRnCEDURF IS Nnt< IL)LF AND CAN P£ Rr.STARTf^Of 



90143000 

90U4000 

-aQi<4 5000 



ELSE 

DOING Js o; 

SREGtsRASE |g BASF 



+ TEMP * param; 



iam j= >«ant; 

BUILDSC^*; 
-IF W AN T N EQ Q TH (:. N 



BEGIN COMMENT A NEW PROCEOURE IS TO B£ GIVEN CONTROL) 
A CBASE] «■ PARAM; 



END THE NEW PROCEDURE U 
TEMP Js PARAM t= Oi 
IF WAITFDR M'ii THEN 



NOW RtADY TU BE CALLED; 



nwi I tun iNcw u i nr.'i 

BEGIN COMMENT wE MUST WAIT BEFORE THIS LINE CAN CONTINUE) 

IF IAM KEQ Q THEN GO TO LI) COMMENT MAKE LINE IDLE; 
AN OTH F R OPERATinN t^ FA LSE; 



WAITING5CW 
END LINE WILL 



NOW 



WAIT UN 



tVENTQUE 



BEGIN 
BEGIN 



COMMENT NO WAIT IS REQUIRED; 
IF (ANOTHEROPERATION «* NOT ALLDONt) AND IAM EQL THEN 
^flMMfNT RFSFT RFTURN JkFni 



RECalLRCW; WAlTlNGSCrtJsBulLDSCW; 

WE CAN NOW RETUIjiN TO THE LAST UNFINISHED PROCEDURE; 
IF LIN^ D ID NOT HAVE T C W A IT; 



90146000 

90147000 

9014 6 000 

90149000 

90150000 

90151000- 

90152000 

90153000 

90154000 

90155000 

90156000 

Qoiarnfin 

90158000 
90159000 
90160000- 
90161000 
90162000 
■90163000 
90164000 
90165000 
9 Q 166 Q 00 
90167000 
90168000 
9 01 6 9000 
90170000 



END WE CAN NOW RETURN TO THE LAST UNFINISHED PROCEDURE; 90171000 

_^___ E N D IF LIN^ D ID NflT HAVE T C W A IT; SXiXlZSXSXa 

END OF ANOTHEROPESATION; 90173000 

X********************************** ************************ *******#****3(9oi 74000 
PRQCEOURr HANDLEtHISLINfCLCW* A)i 901 75000 



%************************** 

BOOLEAN LCW; 

ARRAY A[0]; 



BEGIN 
LABEL RESTART* AGAIN, EXIT; 
— RFSTARH 



fcvuvw* — n-t-M. Vgt f 3000 

******************************************** J90 176000 

90177000 
- 90178000 

90179000 



IAM IS WANT »= WAITfOh 
ALLDQNE »« FALSE) 
RFSTA R TN EEDE D i- FA LSE) 



:s TEMP :s PARAM l» 0, 



IF WAITINGSCW.SCWWAITBITS « REASON ' 

0« WAITINGSCW.SCWWAITBITS « R (NOT FALlE) . t«l 173 

TH EN ■ ,:....;.>... : ■./..■■-■.■;:■■.;.■.■/.>•.. 



90180000 
90161000 
90182000 
90183000 
90184000 
90V850Q0 
90186000 
90187000 



b 



• • 



10 

11 



16 
17 
18 



19 

20 



21 



23 
2A 
25 



27 
28 



30 



o 



32 
33 
34 
35 
36 
37" 



39 

40 



«2 
43" 



«5 



47 



•9 



52 



55 
56 



BEGIN COMMfNTJ SOMeUNE lb WAITING FOK THIS EVENT; 

Sew J= ^vAlTlNGScw; 
WATTINGSCW t= Oj 



END 



PREVRCW 
FiSE 



!• SCWPREv; 



90lb8000 

90189000 

-9C1V0OG0 



BEGIN COMMENT? Wt WERE NOT WAITING FOR IT SO; 

WANT Ja reason; 

IF ini, Kl IMF THFN 



90191000 
90192000 
9ni9300.a 



BEGIN 



RFfilN 



IF 



COMMENT J MUST BE A 
NOT tOSGEDON THEN 



NEW EVENT FOR THIS tlNEi 



90194000 

90195000 

-901960-0^ 



END 



CHARGEJ- -1; 

LOGGING ON THE SrsTEM; 

RliSYI.INE J? TRIJEf 



END 



BASE 
PREVRCW 



»■ SBASEi 
»* LLWOROS; 



90197000 

90198000 
-9O19Aa0i^_ 
90201000 
90202000 
-9020 3000 



BEGIN 



ELSE 



90204000 
9020S000 
902 06000 



IF REAS nNgVTEACHF.R THEN % OQNT PERMIT MUlTlPlE INQUTRTKS 
INQUIRY THEN GO ExiT ELSE INQUIRY »* TRUE; 



IF 



BEGIN 



IF 
REASON 



LSS VINPUT AND NOT INlTIATEDWHIiEBUSY THEN 



INITIATEDWHILEBUSY ;= True; 

LLiNFO :s sew ts waitinqscw; 

-BA^£ 8» SrWflASE * If 



90207000 

90208000 

-902Qei0a. 

90208200 
90209000 

90210000 - 



END 



BEGIN 
BEGIN 



PREVRCW IS SCWPREv - 1* 
-4tS€^ 



90211000 
90212000 

-S102 13000 

90214000 
90215000 
9021 6 0QO 



IF R(THINGSTODO) GTR 2 THEN 



LITOUT("NOTOONE'''CRLF); 
END ELSE 
BEGIN 



90217000 
90218000 
90219000 



REMEMBERTHIS CLCwTJ 

IF REASON = LLINFO. SCrtWAITBlTS 

OR REASnN L S S VTNPU T TH EN SA v f dwhilf I ,^T thusy i :. tri|F^ 



90220000 
90221000 

■ 902 2 2 00.0,., 



END IF remembered; 

GO EXIT; 
END RFASnM u«t \Ki 



90223000 
90224000 
9022500 



END 

%"*«• at It* «••>•••> a> ar a 

AftATNt 



END IDLE OH 
BUILDSCW; 
ACPRFVRrW] 



not; 

:« Rijii QRCw; 



90226000 
90227000 
9fl2gflnnn 



WAITING OR not; 



90229000 
90230000 
90 2 3 100Q. 



90i<i42000 

90234000 

90235000 
90236000 
9023700Q 



IF NOT ANOTHEROPERATION (LCW* AC*]) ThEN GO EXIT; 

comment: if WE GOT TO HERE IT MEANS THERE IS SOMETHING 
- THAT CAN BE INITI ATED FOR THIS LIN^ NOW. 



BEGIN 



(!ASr TAM nr 



-lAM" IS SET TO THE CASE VALWE 
OUT THE APPROPRIATE PROCEDURE* 



WHICH WILL CALL90238000 
S0* LETS TRYlTi90239000 
'' ' ■ 90 240 ^00 



FINISHED(LCW# AC*]);» 00 - LAST THING 
HITHFRFf LCW.AT*]); % 01 - DIAL UP. 



DONE ON LINE. 



BREAK (LCw>AC*J); » 02 - BREAK OCCURRED, 
WRU £LCW#AC*3); X 03 - WHO ARE YQu RECO, 
LlNECLEAR(LCW.Ar*3) ;» O4 " CLFAR LINE AFTER 02 OR 03. 



90241000 

90242000 
9Q243Q0 Q.. 



90244000 
90245000 
90246000 



li 



10 



13 



18 
19 
20 ( 



22 
23 ' 
24 
25 
26 ( 
27 
28 

29 ( 
30 



33 

34 

35 I 

36 

37 

38 { 

39 



42 

43 
44 

46 
47 
48 
49 
50 



e 



52 
53 < 
54 
55 

56 < 



>r 



2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

115 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 
43 " 



45 
46 
47 

«a 

49 
>0 
51 
52 
53 
54 
55 
56 



diskchukk; x Ub - ne^* chunk of disk, 90247000 

DISC0NNECTCLC^N*AC*3 )/*06 - D^SCON^t.C^ OCCUHRED, 90248000 

lNPUTDATACLCrt>A[*])j% 07 - INPUT DATA lb IN PUR BurFE:^. 90249000 



BEGIN 



MS6PTRI«18; % I AM THt 
IAMlsWANT>ffWAlTrOR t»n i 



% 06 
GENIE 



BREAK FINISHED. 



f » • 



END BREAKCLEARi 

restartit(lcw*ac*3); * 09 - after h/l 

TAMlaWATTFnR:sl:\/^^l^T5in J; i yi " mtp iisf, 



90250000 
90250100 
q0?50200 



SAVE kNRKFILE 



makeoate; 

HlTHtRECUCWfAt*]); % 
CALKNOTUSED); 1. 



90250300 
90251000 

9025?000 



mcpmsgclcw*ac*] ); 

COQLITCAC*]); 
MCPQKCAE*]); 



» U - DATE CHANGED. 90253000 

12 (RETURN FROM NEWS/CANDE FIND) 90254000 

-U_=- ^ .^ 90255000 



X 14 - 

% 
t. 



CALKNOTUSED); 

CALL(NOTUSED); 

-TALI, fWnTUSEDW 



HANDLES 
15 

.^ __ 



MCP MESSAGES ABOUT 



CALL(NCTUSEO)i 
CALLCNOTUSEO); 
C AL LCNOTUSED); 



17 - 
19 * 



jDaS90256000 
90257000 

902 58 00- 



% 

% 

-X- 



CALL(NGTUSED); 
CALLCNOTUSEO); 
TfACHER{|,CW» A r* 3 )i 



20 - 

21 - 

22 ■ 



90259000 
90260000 
90^61000 



90262000 
90263000 



% 

% 

JL 



23 
24 

-25- 



HANTS ELARHRATTON. 



lNPuTCLCW'AC*]*WQRKCn^EvENTSLn»tVENTSC3]); % USER INPUT 
DISPATCHCLCW* AC*]); % 27 ' FIHES UP RUNNERS, 
D I SKRE AD ( L C*^» A UD? 1 ?» « HfAn.^ n|SK pnR pwqcEP uHE'^ 



CALL(NOTUSED); « 

00PS(LCW*AC*3); % 

nnGcATcHER(Lcw>Af »n? x_ 



COMPItElT(LCW#AC*]); % 32 
SETUi»FILES(LCW#A[*3); % 33 
FRRnRfSpFG«| CW,A[*JU i ^U 



29 - 

30 - ERH DURING SCAN 
11 * PnfiCATCHER, 



90265000 
90266000 

90268000 
90269000 
902700 



CLQSEKORKTABLECLCW* At * ) );x 35 
CHNGPSWD<LCW*AC*J ); X 36 
THYMr(lCW»AC*1)t % 37 



- COMPILE IT, 

- SET UP ON HELLO 

- ERROR HANOLFR „, 



90271000 
90272000 
90273000 



90274000 
90275000 
90276000 



CARRIAGE(LCW*AC*] ); 
CHNGNAME(LCW*A[*J)i 
MQNiTORPCLCh f A[*J); 



- TO MAKE SURE TABLE 

- CHANGE PASSWORD 

* TTHF 



SETlT(LCW*At*3)J 

SSFlLECLCW'At*!)/ 
EQUATEnCW>AtWl); 



% 
% 



38 

39 

JUL 



CAKRIAGE CONrRQL, 
ChANGtNAME 



IS TIOY9O277OO0 

90278000 

90279000.. 



STATUSChECK(LCW,A[*3); % 44 
CALL(NCTUSED); * 45 

CALL (NOTySFD)? i 46 - 



X 41 - "SET" & "RESET" 

% 42 TRANSMIT FILE 
* LABEL £aUATtQM 



90280000 

90281000 

,90282000 



STATUS OF RUNNING JOB 



90283000 

90284000 
9Q285QQQ 



CALL(NDTUSED); 
CALKNOTUSED); 
CALLfNOTuSma; 



% 

%' 
% 



47 

46 

-45_ 



BEGIN * 50 - SEND 
MOVE (4»W0RDS*EV£NTSC1J»HGRKC10] )> 
TI^XOUT(LL*WORK[0].112>2); 



9O286OO0 

90287000 

-iiliijajBjQiliX 

90289000 

90290000 

90291000 



SS MSGS 



end; 



lAM t« c; 

FDIT(LCW*A[»3)? 



90292000 
90293000 
90294000 



COPYIT (LCK,AC*]); 
SEQ(LCW*A[*]); 
J_L5 



it 51 * LIST FILES 



X 



52 - 
X 53 
lAO 



CCPY, 
- WANTS 



90295000 
90296000 
90297 000 



SEQ «S 



BYE (LCW»AC*3); 
MAKENEWFILE(At*3 ); 
LISTTT CLCW t . A t*3); 



% 

% 



90298000 
90299000 
9Q30QOQQ 



54 • 

55 - 



BYE, 
MAKE 

LIST 



90301000 
90302000 

^oiaaooo 



li 



7 
8 
9 
10 



56|^ 

si 



m • 



>r 



I 2 
3 
4 
5 
6 
■/ 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
«8 
49 
SO 
51 
52 
53 
J4 
56 

I 



EXECUTE{LCW,A[*]); 
LOADIT (LCrt* AC*J); 

SAVER — cLcw,,! Ai:*,n? 



CALLCNOTUSED); 
REMOVE (LCW* At*3); 

CHAMAFft rW.AVt 



* 57 - RUIN, COMPILE OR EXECUTE 90305000 
% 56 ' LOAD 90307000 

% ^ 9 ' ?)AVE — ^ „_ 90J06Q00. 



% 

i 



60 
61 



RENAMEIT (LCW* AL*])/ * 63 
WHATSIT (LOW* At*])j % 6H 
TYPFIT CLCHf Ar*3); X_6i 



REMOVE 
CH A NGE t 



CAtL(NOTUSED); 

GUARDIT(LCW»AC*3); 

LOCKltCLtW^Af*!}? 



- RENAME 

- PRINT FILE TYPE 
j; CHANCiE. TYPE, 



90310000 
90312000 
9O3UO00 



90314000 

90315000 

-£JJ^60Q,n- 



66 
67 



TAPEIT(LCW,At*3); 
LISTITCLCW^AC*]); 
CHARGE l Tf L ClWi A r* ]), ? 



GUARD(MAKE LOCK) 
LOCK OR UNLOCK 



90317000 

90318000 

■ 90319000- 



SCHEDUIE<I-CW'AC*3); 
SCHE0STATUS(t.CW,At*3)J 
t.lSTFILEfLCW» AT*] )i 



X 69 - PAPER TAPE 

* 70 - PRINTCNO HDING3 

% 71 • CHARftE COO E 



72 « SCHEDULE A TASK, 

* 73 • bCHEO STATUS/STOP 

7ft « LIST Fll ES« 



90320000 
90321000 

- 9032 2 000 



UPDATE{LCW*A[*3)I * 75 - UPDATE WORK FILE 
REPLAGEITCLCW»A[*J); % 76 - RE'^LACEMENT ROUTINE 
XNfl OF C AS E S QMETH l Ni » MUH E >/AY fl £ NEt- QE O ; 



90322100 

90322200 

-903??300 



EXIT« 



IF RESTARTNEEDED then go RESTART else GO AGAIN; 

END OF handlethiSltne; 



PROCEDURE RUNCANDE; 



LABEL 



BEGIN 



havevent; 

-HO 



BEGIN 



-1 THF Lnnp STARTS hfre 



BEGIN 



IF NODATA ANU WECANUSilUAl a THtN 

IF nqdatarequested th&n 



end; 



requestinput (ttyinput c*j); 
nodatarfquestfd v» false; 



IF timetouklines then 

IF MAKEflKEVENT THEN GO TO HavEVENT; 



BEGIN 



waitbiti»real(nodata); 
nextevent cwaitbit* clock* 

IF BOOLFAN rWAlTBTT) then 



EVENT L*3); 



MOVE ( 5, WORDS* EVENT [0] ^ EVENT SLOD; 

jj. »=£v entl l; 



VMCPMSG THEN 



IF RIASONIaEVENTREASON * 
VOID 90347001. 

MQVF{i5*WORDS*Ev£NTC43*WORKtQ3); 



END 



IF REASONsVHELLO THEN 

IF LlNECLL*l3],SCwWAlTBITS KEQ REASON THEN 
LIKECLL*233 ;= EVLNTSL23; % TERMINAL TYPE 



ELSE builoadataevent; 

IF LL 6TR HAXLINES THEN 
BEGIN LLI»0; RCASQN'tU; ENl?; XlAD LINE NUMBER 



IF REASONsVHELLO AND LUGGINGON THlN 
BEGIN LL:=0; REASONSslj; EnU; 
HAVEVENTt 



IF LLPREV NEQ LL THEN 
BEGIN COMMENT A DIFFERENT USER IS GOING TO USE TIME; 
, IF LLRREV NEQ THEN 



90322400 
90322500 

90324000 

90325000 

-90 3260043- 



90327000 
90328000 

90330000 
90331000 
90332000 



90333000 
90334000 

9Q335QQQ. 



90336000 
90337000 
9Q 3 38 0QiL 



90339000 
90339100 
9Q33 , 92 QQ 



90340000 
90341000 
90 342 QOO 



90343000 
90344000 
903_45000 
90 346000 
90347000 
9Q34BQ0Q 



90348100 

90348200 
90348300 



90349000 
90350000 
90351000 



90352000 
90353000 
90353500 



90354000 
90355000 
90356000 



Ifn* 



m • 



h- 



2 
3 
4 

5 
6 
7 
8 
9 

ro 

11 
12 
13 
14 

ts 

|16 
Il7 
18 



19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 " 

33 

33 

34 

35 

36 



37 

38 

39 

40 

41 

42 

43" 

44 

45 

46 

47 

48 



BEGIN COMMENT CHARGE PHEV USEH rUR H 1 b TIME/ 

LlNECLLPREV,PTLnC]«sCLUCK-CLOCKPHLV+LIMECLLPHEV#PTLOC]; 
-ZUD IF USF:K TU be CHAHtit.U,{ ^ 



END 



LLPREVt«LL; 

ci,ockprev»*clock; 

T ff N EW UaF H TU BF HAN niFitH 



EN D 



IF REASON NEQ 13 THEN * THROW khA\ #13*BAC LUCK 
HANDLETHlSLINECLCW^LlNtCLL/*] j; 
OF L OO P U NTI L F ALSE ; 



903b7000 

90358000 

90359Q00- 

90360000 

90361000 

90362000 

90363000 



90364000 

90i65004)- 

END RUNCANOE^ 90366000 

X *********** ****************************************************** «r ***** 9 J 6 7 
PROCFnURE lNTTTALI7£CANnFi qo-<a. 7ioo 

r*********************************************90367200 



%**************************■ 
BEGIN LABEL DUMMY; 
STREAM PRnCFDURF ; ?F TlJPCQM M;^ ( CHMM? ) ,; 



BEGIN DH»COMMiJ; 

DS»«8 LlT"08ai89«("; 

nSlg \ lT'*a"; nTl»UT4./ii 



end; 



sij=LOc coMMii; si; = si + b; DS! = j chk; 



90367300 
- 90367400 

90367ai0 
% 3''0010103UOU0435«90367420 
t 3*^75" 90367430 



REA L STR EA M PR U CEauRE AODH t; :i> . S C rt ); 



BEGIN SIlsW; ADORESS«*Si; END; 



90367440 
90367450 

___ — . 903 6 75 

90367510 
%* * • ....*»,. ,,, 90 367600 

t ********************** ***■*****■l,***********J■******^,f^.^,A^**4*J.^,*^*^^ l ,^^^y,J,^90367^^Q 

PRUCEDURE SPOLOgON(LCW/A); BOOLEAN L^Hf ARRAY ALU]; 90367620 

%************************************** *****************^**********^vn^**90367530 

-— — BE G I N 9 036 76 4 C 



REAL VRB*N; 
STREAM PROCEDURE SETBI T ( N* WORD ) ; VALOE N; 
RFfliN LnrAL Ml 1 



si:=LOC n; sl:«:SI + 6; dIs=lUC M; d1s=dI + 7; DS:sChr; 

dijsword; Ni(Di:*oi+8); SKIP N db; dsj=set; 

end; , 



ESPi t« getespoisk; 

ESP2 >g GETESPnrSK; 



USERCODE t" "SPO 

loggedon je true; 

LINECLEAR(LCW^AC*3); 




FILESOK »* FALSE; 
FILL W0RKC*3 WITH 



90367650 

90367660 

90367670 

90367680 

90367690 

903 6 770 XX- 

90367710 

90367720 

9Q36 77-li3^ 

90367740 

90367750 

9Q36776Q 



^ 



I S E^ 



*«« _'*5HFLL0 »P 



"3SYE 



*«4TAPE 



"# •»'6CHARGE "» "JSCHEUUL"* S^dSTATUS "# 
"» "ZCC "♦ "3SET "/ "SREStT "# 

'♦>^'^7MQNnQR"; 



90367770 
90367780 
90367790 



49 

50 



SI 
52 
53 

54 



95 
56 



;>- "5PUNCH 
$ "4ST0P 
- »>"4TI ME 



FOR VRB «s STEP 1 WNTlL 13 00 
BEQIN 
N «» WORK [VRB 3 ; 



90367800 
90367810 

90367830 
90367840 
90 3676 5Q 



IF YOUFINOAVERBCN* VERBT ABLE CO J » NUMOFVERtib) THEN 
BEGIN 
N »» (N,C9»9n DTV 2; 



SETBIT(N*1> RESfRlcTEDVERBS); 

end; 
end; 



90367860 
90367870 
903678 80 



END PROCEDURE SPOLOGON; 

makedate; 

COMMENT VERBTABl ECWnRm.Ffi»31 IS (iSLU AS A F(AG FOR 



90367890 
90367900 
90 3679 1 Q 



SCANNER ( FOR ♦♦SPECIAL" VERB ); 

■ FILL VERBTABLEC*] WITH 

/ ♦♦ILIST ♦♦> 3^^30OQ00O00OO0M70"» Jt #56 



90367920 

90368000 

-90366010 



90368020 
9036900a. 
90 370b0QN' 



i/ 



m t 



«9 
50 
51 



52 

53 



54 



5S 

56 



^ "5WHATS 




MIRUN "* 3"3O0OOP0O0OO00O;i"# * #57 
M^SAVE '% 3"300aOAOOOOOOOO^ J"# « #59 
" I SEM ",. 3"30li00ftll&nopon06'3'*t a ;t53 



"SCO "» 
?MMAKE !t^ 



"<»iOAD "* 
"ICOMPlut"* 
"6R£ I ^QV£ "> 



3" 3000 10000000007 l"* x #57 
a^SGOQlOOOOOOOOO?!"* X #57 

3"anr)Qifloonnonnnft7's t_<LSS- 



90371000 
90372000 



• EXECUTE 



"eCHANGE 
"dRENAME 
"4FILES 



3"30uoi6oaooGOuc7;d''/ % idsa 

3"3O0U2G0O00OOOC71"* % n57 
3"30 02aon Qt) 7 b "> % ff61 



3"30U0240000000076»S X #62 
3"300O26000000007/"# X #63 



^•♦38 YE 



3"300032CQOOCOO],GU"# X #64 ALSO 
3"3O003«OOOOO0C067", X »55 ALSO 
3" 3 0iU 3 600QOQOOOQl . "« X Cj . 



"b^^ErtGE 
"SRESEQ 

"6n F .L F . Tt 



3«300a4<30000000101,"# X #65 
3''3000420000000066''# X #54, 



"6APPEND 
"3 ADD 



3"300O46C000000C64"/ % #52# ALSO 
3"3000500000000CC4"# X #52* ALSO 
3'*300052COOQ()OQQft4", X «S?* ALSH 



3"30U0540000000064»S X #52# ALSO 
3''3000540000000064«, X 52#ALSD 



"2SS 

y 5 GUARD 
"4LaCK 



••6UNL0CK 

"4TARE 
"IPHTNT 



3"3000620000C0006ii'% X 5O#ALS0 
3"300U640000OO0lO3'S X 67 
^"iQCUftft00Q(njnnin4*'. 1 ^ r 



3"300070000CC00104''# X 68#ALS0 
3" 3000720000000 103"* X 69 



"5PUNCH "* 
"6CHARGE "* 
"3SrHFDUL"f 



yB6STATUS 
y"4ST0P 
/'*4TTH F 



3"300U7600Q0000064'S % 52*ALSQ 
3"3001000000000107"* X 71 
3''30Q10^000QOOQ1 1U"> X7? 



M , 



"lUPUATE "* 
"3REHLACE"' 



3 " 3 01 04 000 00 U I " # X 7 3 
3"30ai060000000lU*'* X73* 
3"300 11 00000000045-, %%7 



ALSO 



"4FTND 



"200 *** 

"6RMERGE "* 
•?iniSPLAY'% 



3"3001i20000000U3"* X 75 
3"30U140000000U4''^ X 76 
3"30lll60000000l i4'S % lb 



ALSO 



"3 SET 

«!5R£StT '% 
y"7M'0NITUR'S 
•'6SSFILE ♦% 
" 2 EQUATE •** 
♦♦frPUflLTC "* 



3''3001200000000046''* X 38 
3''300i220000000064"* X 52 
3*^3Q012400000&0070''» % 56 



ALSO 



3"301l2fi000000005l"* 
3"30ll3000000000'jl"/ 
3"3001320000000G50'S 
3" 300 1 34000000001 2"* 
,3'*3O0l 36000000005 S"* 
3" 3OO 1400000000 104"# 



X 

% 

JL 
% 
% 
% 



41 
41 
40 
42 
4 3 
68 



ALSO 



"7*******", 0; % LAST ENTRY 
LOCk(VERBTABLEC*J); X make read Oi\LY 
FTLi TYPFTARLF[*J ^TTH "7LNKNnwN"# 



ALSO 



ARRAY 



"EBASIC 
"EALGOl 
"FCnRfll 



"GFORTRAN"* 
"ETSPGL "* 
"FXAlfiOL "> 



V,I>J 



«3SEfl 

"4 DAT A 
r4 i06M 



90 3 7 400> 
90375000 
90376000 ■ 



90377000 
90378000 

90380000 
^00 

9Q3a2000 



9oie3o00" 

90384000 
- 9 3 85 000 - 



90386000 

90387000 

.903aft00JX 



90389000 
90390000 

-l-Ql^lOOO. 



90392000 
90393000 

90395000 

90396000 

-90 3itZO.Qa 



90398000 
90399000 
90^00000 - 



90401000 
90'»02000 
90^0 210 , 



90'»02200 
90402300 
90402400 

90402860 
90402870 



r904Q2flM 
^'90402890 



90^*03000 
90403100 



90^03200 

904U3300 

-9.04^140.0. 

yo-oo'sAio 

90403420 
90403430 



90403900 
90403950 
9Q404QQ0 



90405000 
90406000 
9Q4Q7non 



90^08000 
90409000 
l4lQnO0 

90411000 
90«12000 
9Q0130QQ 



T1^ 



10 
11 
12 



>T 



"GC0BUL68"; 
L QCKCTYP E: TAB lE[* n ^ 



% MAKE Rt:AD QNWY A8HAY 



90'H3100 
90^13900 
90^U9'>fl 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 



1 

4. 






1 



FILL RESWHDTA8LEC*] 
"5BASIC ^* « 1 
** !5AI flOL *' » X 2 



WITH "ZuNKNOWN"* 






90*14000 

90*15000 
9oai6nQn 



1 






"5C080L 'S » 3 
"/FORTRAN"* * i\ 
"■^TSPni. "> % 5- 



90417000 
90418000 
90419000- 



"6XALGCU 
"3SEQ 
"4DATA 



% 

JL 



6 
7 



90420000 
90421000 

904??onn 



V^UDCK "* * 9 
"4INF0 "* % 10 

"7cnHnufl"> % 11 



"ePUBUIC "* X 12 
"/SOUIUSE"* X 13 
" 7U NLnC KF"* i 1 4 



90423000 
90424000 
9042500Q. 



"6tOC«ED 
"60BJECT 
" 6 Sn UR CF 



% 
% 
% 



15 
16 



90426000 

90427000 

-90428000- 



X 1 " ]7 ARi- HQ^inilN n^.PE.MDFNT 



90429000 
90430000 



"4CAR0S 
"3ENn 



% 18 
X 19 

X 2 



90432000 
90433000 
9n434nnn 



"SERRORS 

"4FIUES 

"qFROM 



21 
22 
23 



90435000 
90436000 
90437000 



26 
27 
28 

29 
50 

i^~ 

32 
33 
34 
35 

36 



J 



•3 



"7LI@RARY"* % 2U 
•♦/PRINTER"* % 25 
"5PUWCH "* % 26 



I- 



^/"SRESEG 

/"4TAPE 

j"4TYPF 



'* * 27 
'* a 28 
'f % 29 



90438000 

90438100 

■ 9Q43e?QQ- 



"4WITH "# I 30 
"Z *******"; X 31 

tnCK(RFSWRnTABI.Fr*3)^ X 



90438300 
90438AOO 
9n43fl'in 



D- 



MAKF RF-An UlStl-V ARRAY 



SETUPC0MM2(CQMM2); 

ASTOR.cns] :s "*"; 

SPPI QfiCNf Ll.CCINTROl.. [Q3^1TNF[0j'* J )> 



90438600 
90439000 
90439100- 



90439200 
90440000 
90441000 



37 
38 
39 



41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

66 

P7 



FLAGS Is CNOT FALSE) & FALSE C 6 » 6 : 2 J i 
WORKt«H»0; OlSKWAlT(l'WaRKt*3*30/Q); 

n I skrottom t nMDRK r ai*? i % im i t al i zr it 



END 



WORKCO] « = 0; WaRKADRS:«ADDRESS(WORK[lJ ); 
WORKENOADHS Ja AUORESSC WORK[ 9 J ) ; 
INITIALIZECAMQE? — 



90442000 
90442100 
904422Q0 



jlmh 



INITIALIZECANOEI 

RUNCAWOEl 
PRflCFnURFS fit QCKl 



90442300 
90442400 
..9-iJJAa6.aiJ- 
90443000 
90444000 
90445nQn 



END COMMUNICATES BLDCK; 
End ARRAYS BLOCK, 
END;EN0, LAST CARD UN 0CRDlN(i 



TAPE 



90446000 
90447000 
99999999 



55 
56 ^ 
57 



m t 



LABEL OOOOOOOOOPRIMFROOIOOCOOCC tX OBJECT /RE aU; r RE bOURCEF I utsS YMBUl/CAnDe; £ND> «- 



OBJECT /READ 



3 
4 
S< 

6 



10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

90 

31 "" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
«9 
50 
51 
52 
53 
54 
55 
5« 



